CLng function

CLng( expression )

Converts any valid expression into a long value.

Example

Sub Main()
   Dim y As Integer
 
   y = 25000   ' The integer expression can only hold five digits.
   If  VarType(y) = 2 Then
       Print y
         x = CLng(y)   ' Converts the integer value of x to a long
                       ' value in x.
         x = x * 10000   ' y is now ten digits in the form of x.
       Print x
   End If
End Sub