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