Imports System.Numerics
Imports System
Module Example
Public Sub Main()
Dim number As BigInteger = BigInteger.Parse("111111111111111111111111111111111")
If number < Int64.MaxValue Then
' Do something.
Else
' Do something else.
End If
End Sub
End Module