Short.MinValue
public class Test public Shared Sub Main Dim sNum As Short Console.WriteLine("Short: " & sNum.MinValue & " to " & sNum.MaxValue) End Sub End class