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