Imports System.Numerics
Imports System
Module Example
Public Sub Main()
Dim number1 As BigInteger = CType(Double.MaxValue, BigInteger)
Dim number2 As BigInteger = number1
number2 = number2 + 9.999e291
Console.WriteLine("BigIntegers equal: {0}", number2.Equals(number1))
Dim dbl As Double = CType(number2, Double)
Console.WriteLine("BigInteger: {0}", number2)
Console.WriteLine("Double: {0}", dbl)
End Sub
End Module