How about something like

lNumber = 999999
lNumber = Format(lNumber,"##0.000")

Hope it helps