I left a stray comma in there, it should be

Worksheets("Data").Cells(iPos,2).Value* txtQty.Value

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"SDH" wrote in message
...
thanks Bob, but it is still not working. i have enough knowledge to be
dangerous as they say. i get a syntax error on the MsgBox line at the *.

"Bob Phillips" wrote:


iPos = 0
On Error Resume Next
iPos = Application.Match(lstProducts.Value,
Worksheets("Data").Columns(1),0)
On Error Goto 0
If iPos 0 Then
MsgBox "Total Purchase price is " &
Worksheets("Data").Cells(iPos,2).Value,* txtQty.Value
End If


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"SDH" wrote in message
...
Very similar Corey, except that the Product ListBox1 is the name of the
product and refers to a cell in column A of the worksheet, where the
price
of
the product selected is in column B and is the required reference to
multiply
against the Quantity entered in TextBox1

"Corey" wrote:

something like:

Private Sub CommandButton1_Click()
If ListBox1.Value < "" And TextBox1.Value < "" Then
MsgBox "Total Purchase price is " & ListBox1.Value * TextBox1.Value
End If
End Sub


Where Listbox1 = Product
and
Textbox1 = Quanity


Corey....
"SDH" wrote in message
...
I have a userform that has a 'Product' listbox and a 'Quantity'
textbox.
The
cost of the 'Product' is on a product worksheet. I have a command
button
on
the Userform called 'Cost'. When clicked i need this button to
calculate
the
cost of the purchase i.e. purchase price = 'quantity' in text box
multiplied
by cost of product. I would like it to be displayed either in a
userform
or a
message box with an ok button.