CDbl Function Example

This example uses the CDbl function to convert an expression to a Double.

Dim MyCurr, MyDouble
MyCurr = CCur(234.456784)    ' MyCurr is a Currency.
MyDouble = CDbl(MyCurr * 8.2 * 0.01)    ' Convert result to a Double.