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