CSng Function

Syntax
CSng(expr)
Group
Conversion
Description
Convert to a Single precision real. If expr is too big (or too small) to fit then an overflow error occurs.
Parameters Description
expr Convert a number or string value to a single precision real.

Sub Main
    Debug.Print CSng(Sqr(2)) ' 1.4142135381699
End Sub