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.
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.