changing text to currency

Hi,

I have a calculator function in my program. Users of my software have been complaining because the dollar amount is hard to read especially when they get into high numbers.

ex.
$6426587895.00 is 6 billion, 426 million, ect....

but it's kind of hard to tell without counting spaces

I would like it to come out

$6,426,587,895.00

if the number was
$6420

I want it to come out $6,420.00

How would I format a string to do this?

Try this:

Code:

---

Private Sub Form_Load()
Dim strInput As String
Text1.Text = strInput
Format strInput, ("Currency")
Label1.Caption = strInput
End Sub

---

This wont work on VB7
Lee

Use the FormatCurrency function.

Code:

---

MsgBox FormatCurrency("$6420", 2)

---

Or the Format function.

Code:

---

MsgBox Format("$6420", "$0.00")

---