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