Добавление данных в столбцы ListBox

[Igor 1]

Все привет =) возникла проблемка, у меня есть ряд TextBox и каждый должен отвечать за заполнение одной из колонок в ListBox, у меня получается, что все данные попадают в одну колонку. Как сделать так чтобы TextBox1 заполнил первую колонку TextBox2 вторую и тд...?

[Казанский]

Private Sub CommandButton1_Click()
Dim i&
Me.ListBox1.AddItem (ComboBox1.Value)
i = ListBox1.ListCount - 1
Me.ListBox1.Column(1, i) = ComboBox2.Value
Me.ListBox1.Column(2, i) = (TextBox1.Value)
Me.ListBox1.Column(3, i) = (TextBox2.Value)
Me.ListBox1.Column(4, i) = (TextBox3.Value)
Me.ListBox1.Column(5, i) = (TextBox4.Value)
Me.ListBox1.Column(6, i) = (TextBox5.Value)
'Me.ListBox1.Column(2, i) = (Rnd)

End Sub

[Igor 1]

Казанский СПАСИБО БОЛЬШОЕ!!! Очень выручил =)