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.