Module Example
Public Sub Main()
Dim hexStrings() As String = { "8000", "0FFFFFFF", _
"f0000001000", "00A30", "D", "-13", "GAD" }
For Each hexString As String In hexStrings
Try
Dim number As Long = Convert.ToInt64(hexString, 16)
Console.WriteLine("Converted '{0}' to {1:N0}.", hexString, number)
Catch e As Exception
Console.WriteLine("Exception")
End Try
Next
End Sub
End Module