Imports System
Imports System.Globalization
Class Sample
Public Shared Sub Main()
Dim result As Boolean
Dim int16Val As Int16
' Int16
result = Int16.TryParse("-2", NumberStyles.Integer, Nothing, int16Val)
Console.WriteLine(int16Val.ToString())
End Sub
End Class