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