Decimal.FromOACurrency Method Converts an OLE Automation Currency value to the equivalent Decimal value.
Imports System Imports Microsoft.VisualBasic Module DecimalFromOACurrencyDemo Sub ShowDecimalFromOACurrency( Argument As Long ) Dim decCurrency As Decimal = Decimal.FromOACurrency( Argument ) Console.WriteLine( decCurrency ) End Sub Sub Main( ) ShowDecimalFromOACurrency( 100000L ) End Sub End Module