Converting 1000000 to 1,000,000

is there a function to convert
1000000 to 1,000,000 ?

[Edited by Evan on 11-26-2000 at 07:55 PM]

Try this. Not sure if this is what you are looking for.

x = Format("1000000", "#,###,###")

MsgBox Format(1000000, "0,000,000")

If 1000000 is entered into a text field, on the LostFocus event of the text field enter this

Code:

---

Public Sub txtUnits1_LostFocus()

txtUnits1 = Format(txtUnits1, "#,##0")

End Sub

---

In general, if used another way I would take HeSaidJoe's advice with this alteration:

Format("1000000", "#,##0")

If it's money

Format("1000000", "$#,##0")


Hope this helps!

Flint