Convert.ToInt64 (Int16) converts 16-bit signed integer to 64-bit signed integer.
Module Example Public Sub Main() Dim numbers() As Short = { Int16.MinValue, -1, 0, 121, 3140, Int16.MaxValue } Dim result As Long For Each number As Short In numbers result = Convert.ToInt64(number) Console.WriteLine(result) Next End Sub End Module