Module Example
Public Sub Main()
Dim value As String = Convert.ToString(CInt(Short.MaxValue) + 1, 16)
Try
Dim number As Short = Convert.ToInt16(value, 16)
Console.WriteLine(number)
Catch e As OverflowException
Console.WriteLine("Unable to convert '0x{0}' to a 16-bit integer.", value)
End Try
End Sub
End Module