Imports System.Numerics
Imports System
Imports System.Globalization
Module Example
Public Sub Main()
Dim originalNumber As BigInteger = BigInteger.Pow(UInt64.MaxValue, Byte.MaxValue)
Dim generalString As String = originalNumber.ToString("G")
Dim generalBigInteger As BigInteger = BigInteger.Parse(generalString, NumberStyles.AllowExponent Or NumberStyles.AllowDecimalPoint)
If originalNumber.Equals(generalBigInteger) Then
Console.WriteLine("The values are equal. No data has been lost.")
Else
Console.WriteLine("The values are not equal. Data has been lost.")
End If
End Sub
End Module