CDbl (expression)
Converts expressions from one data type to a double. The parameter expression must be a valid string or numeric expression.
Example:
Sub Main ()
Dim y As Integer
y = 25555 'the integer expression only allows for 5 digits
If VarType(y) = 2 Then
Print y
x = CDbl(y) 'Converts the integer value of y to a double value in x
x = x * 100000 'y is now 10 digits in the form of x '
Print x
End If
End Sub