Example:
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