Example - CLng Function

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