Formatting a messagebox

[FoeHunter]

Can a messagebox be formated to display a number with commas?

For example, say the following code returns a value of 4,000,000. Can the MsgBox be told to display as 4,000,000.00 instead of 4000000?

    Dim TotalVal As Long
    TotalVal = DSum("[TotalPrice]", "[SupplyLog]")
    MsgBox ("Total dolar value of all transactions $ " & TotalVal), vbInformation, "Title goes here"

 

[jackd]

MsgBox ("Total dolar value of all transactions $ " & TotalVal), vbInformation, "Title goes here"

I think it is like this

MsgBox (Total dollar value of all transactions " & format(totalVal,"Currency"), vbInformation, "Title goes here"

 

[jackd]

Make that


MsgBox ("Total dollar value of all transactions " & format(totalVal,"Currency"), vbInformation, "Title goes here")

 

[SydneyGeek]

You may need to take off the outer parentheses:

MsgBox "Total dollar value of all transactions " & format(totalVal,"Currency"), vbInformation, "Title goes here"

Otherwise VBA will expect an = sign (using parentheses turns MsgBox into a function)

Denis

 

[FoeHunter]

Thank you all for the responses. Now that work has slowed down to a dull roar I'll have an opportunity to give them a try.