Module Example
Public Sub Main()
Dim decimalVal As Decimal = 123123.123123
Dim doubleVal As Double
' Decimal to Double conversion cannot overflow.
doubleVal = System.Convert.ToDouble(decimalVal)
System.Console.WriteLine("{0} as a Double is: {1}",decimalVal, doubleVal)
' Conversion from Double to Decimal can overflow.
Try
decimalVal = System.Convert.ToDecimal(doubleVal)
System.Console.WriteLine("{0} as a Decimal is: {1}",doubleVal, decimalVal)
Catch exception As System.OverflowException
System.Console.WriteLine("Overflow in Double-to-Decimal conversion.")
End Try
End Sub
End Module