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