CInt Function

CInt (expression)

Converts any valid expression to an integer.

Example:

Sub Main ()

    Dim y As Long

    y = 25

    Print VarType(y)

    If  VarType(y) = 3 Then

       Print y

       x = CInt(y)   'Converts the long value of y to an integer value in x

        Print x

       Print VarType(x)

    End If

End Sub