Imports System.Numerics
Imports System
Module Example
Public Sub Main()
Dim decimals() As Decimal = { Decimal.MinValue, -15632.991d, 111111.12d,
Decimal.MaxValue }
Dim number As BigInteger
For Each value As Decimal In decimals
number = CType(value, BigInteger)
Console.WriteLine("{0,35} {1,35}",value, number)
Next
End Sub
End Module