Option _Explicit
Declare Library
Function snprintf& (Dest As String, Byval l As Long, frmt As String, Byval x As _Float)
End Declare
Dim As _Float c
c = 123.45644444444444##
Print strf(c)
Function strf$ (x As _Float)
Dim As String s
Dim As String frmt
Dim As Long l, sign
sign = Sgn(x)
If sign < 0 Then x = -x
s = Spc(64)
frmt = "%19.3Lf" + Chr$(0)
l = snprintf(s, Len(s), frmt, x)
s = _Trim$(s)
If sign < 0 Then s = "-" + s Else s = " " + s
strf = s
End Function