Sub Main ()

Dim y As Integer

' An integer expression can only hold 5 digits

y = 25000

If VarType(y) = 2 Then

MsgBox "y is " & y

'Converts the int value of x to a long value in x

x = CLng(y)

'y is now 10 digits in the form of x

x = x * 10000

MsgBox "x is " & x

End If

End Sub