Imports System
Imports Microsoft.VisualBasic
Module DecimalCtorSDemo
Sub CreateDecimal(ByVal value As Single, ByVal valToStr As String)
Console.Write("{0,-27}", String.Format("Decimal( {0} )", valToStr))
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(123450.0, "1.2345E+5")
End Sub
End Module