Module Example
Public Sub Main()
Dim value As String = Convert.ToString(CLng(Integer.MaxValue) + 1, 16)
Try
Dim number As Integer = Convert.ToInt32(value, 16)
Console.WriteLine("0x{0} converts to {1}.", value, number)
Catch e As Exception
Console.WriteLine("Exception")
End Try
End Sub
End Module