Data Type VB.Net Tutorial

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