Example - CDbl Function
Sub Main () Dim y As Integer y = 25555 'The integer expression only allows for 5 digits
If VarType(y) = 2 Then MsgBox 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 MsgBox x End If End Sub