With Listbox1
.AddItem Textbox1.Text
.List(.ListCount-1,1).Value = Textbox2
.List(.ListCount-1,2).Value = Textbox3
.List(.ListCount-1,3).Value = Textbox4
.List(.ListCount-1,4).Value = Textbox5

etc

End With

--
Regards,
Tom Ogilvy

"vqthomf" wrote in message
...
I have 8 Textboxes that I want to add to a listbox in 8 colunms how can I
do
this I have tried to write to a column but wont work, I am thinking of
using
an array but not to sure how to do this I have used an array before but in
columns. the user will be adding to this array can anybody help please.
Charles