changing text to currency

[vwiley1]

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?

[Lee M.]

Try this:

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

[Matthew Gates]

Use the FormatCurrency function.

MsgBox FormatCurrency("$6420", 2)

[Megatron]

Or the Format function.

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