Convert.ToInt16 (Byte) converts 8-bit unsigned integer to 16-bit signed integer.
Module Example Public Sub Main() Dim bytes() As Byte = { Byte.MinValue, 14, 122, Byte.MaxValue} Dim result As Short
For Each byteValue As Byte In bytes
result = Convert.ToInt16(byteValue)
Console.WriteLine("The Byte value {0} converts to {1}.", _
byteValue, result)
Next End Sub End Module