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