CSng Function
SyntaxGroupCSng(expr)
ConversionDescription
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