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