Daten von einem textbox in einer Word Tabelle übertragen

Hallo,
ich versuche eine Tabelle in Word mit Daten aus einem Textbox zu füllen. Problemstellung: die Daten von einem Textbox sollen in einer Zelle der Tabelle übertragen werden. Für die nächste Zelle möchte ich den gleichen Textbox verwenden und mit einem anderen Inhalt füllen, und so bis ich die Tabelle mit verschiedenen Inhalten gefüllt habe. Ich würde mich über jede Hilfe freuen. Office 2003 / Meine Code sieht so aus:

Private Sub CommandButton1_Click()
Dim Tabelle As Table
Dim ende As Integer
Dim x As Integer
Dim y As Integer
Dim i As Integer
'i = 3
Set Tabelle = ActiveDocument.Tables(4)
With Tabelle

For x = 3 To Tabelle.Rows.Count
For y = 1 To Tabelle.Columns.Count
Tabelle.Rows(x).Range.text = "" & x - 2 & "."

Next
Next

For i = 3 To Tabelle.Rows.Count
Tabelle.Cell(i, 2).Range.text = TextBox1.Value
TextBox1.Value = ""
If i > Tabelle.Rows.Count - 1 Then
Tabelle.Rows(i).Select
Selection.InsertRows
End If

'i = i + 1
Next

danke!
Wema