Conversion from Double to Decimal can overflow
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