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