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