messagebox help

S

SDH

I have the following code that calculates a total cost:

Private Sub CmdCost_Click()
If Me.txtQuantity.Value <> "" Then
prod = Me.lboProduct.Value
Pprice = Application.WorksheetFunction.Index(Range("Price") _
, Application.WorksheetFunction.Match(prod, Range("Product"), 0))
MsgBox Pprice * txtQuantity, vbOKOnly, "Total Cost"
End If
End Sub

Currently the total cost appears in the message box, but is there anyway i
can get the format of the cost to include a $ and if possible two decimal
places.
 
J

JLGWhiz

Private Sub CmdCost_Click()
If Me.txtQuantity.Value <> "" Then
prod = Me.lboProduct.Value
Pprice = Application.WorksheetFunction.Index(Range("Price") _
, Application.WorksheetFunction.Match(prod, Range("Product"), 0))
cost = Pprice * txtQuantity
totCost = Format(cost, "$00,000.00")
MsgBox totCost, vbOKOnly, "Total Cost"
End If
End Sub
 
S

SDH

thanks JLGWhiz, it works now, i changed the format to $##,###.## so that the
zeros that are not required don't show up.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top