You don't say how to get the price for the specific item, so here is a guess

Dim tbox as MSforms.Textbox
Dim item as MSforms.Label
for i = 1 to 8
set tbox = Userform1.Controls("TextBox" & i)
set item = Userform1.Controls("Label" & i)
price = application.Vlookup(item,Worksheets("Costs").Range ("A1:B2000"),0)
qty = clng(Tbox.Text)
'tbox1.Text = price * qty
tot = tot + price * qty
Next
Textbox9.Text = tot


--
Regards,
Tom Ogilvy


"roscoe " wrote in message
...
Hey People!

Total newbie to this sort of thing, so could do with a bit of basic
help...

The problem I have concerns 8 textboxs in a userform controlled by a
spinbutton. they contain quantities of an item to be purchased. What I
need to do is to have the quantities of all eight, multiplied by prices
specific to the item...

e.g. textbox1*11 etc

and then have the total of these 8 sums displayed in another blank
textbox

Apoligies if very basic, but i'm working against the clock

Many thanks,

Roscoe


---
Message posted from http://www.ExcelForum.com/