CLng Function

CLng (expression)

Converts any valid expression  into a long.

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