Imports System
Imports System.IO
Imports System.Numerics
Imports System.Runtime.Serialization.Formatters.Binary
Module Example
Public Sub Main()
Dim fs As FileStream
Dim formatter As New BinaryFormatter()
Dim number As BigInteger = BigInteger.Pow(Int32.MaxValue, 20) * BigInteger.MinusOne
Console.WriteLine("The original value is {0}.", number)
Console.WriteLine(BigInteger.Abs(number))
End Sub
End Module