CSng Function


CSng( expression )

Converts any valid expression to a Single.

Example:

Sub Main()

Dim y As Integer

y = 25

If  VarType(y) = 2 Then

Print y

x = CSng(y)   'Converts the integer value of y to a single value

              ' in x.

Print x

End If

End Sub