Imports System
Imports Microsoft.VisualBasic
Module DecimalCtorDoDemo
Sub CreateDecimal( value As Double)
Try
Dim decimalNum As New Decimal( value )
Console.WriteLine( "{0,31}", decimalNum )
Catch ex As Exception
Console.WriteLine(ex)
End Try
End Sub
Sub Main( )
CreateDecimal( 1.23456789E+5)
End Sub
End Module