Class Sample
Public Shared Sub Main()
Dim decimalVal As Decimal = 123.123
Dim doubleVal As Double
doubleVal = System.Convert.ToDouble(decimalVal)
System.Console.WriteLine("{0} as a Double is: {1}",decimalVal, doubleVal)
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 Class