Private Sub CommandButton1_Click()
Dim Tbl()
If Me.ListBox1.ListCount > 0 Then
TblE = Me.ListBox1.List
n = Me.ListBox1.ListCount + 1
ReDim Tbl(1 To n, 1 To 11)
For i = LBound(TblE) To UBound(TblE)
For j = LBound(TblE, 2) To UBound(TblE, 2)
Tbl(i + 1, j + 1) = TblE(i, j)
Next j
Next i
Else
n = 1
ReDim Tbl(1 To n, 1 To 11)
End If
Tbl(n, 1) = Me.TextBox1
Tbl(n, 2) = Me.ComboBox1
Tbl(n, 3) = Me.TextBox2
Tbl(n, 4) = Me.ComboBox2
Tbl(n, 5) = Me.TextBox3
Tbl(n, 6) = Me.TextBox4
Tbl(n, 7) = Me.TextBox5
Tbl(n, 8) = Me.TextBox6
Tbl(n, 9) = Me.TextBox7
Tbl(n, 10) = Me.TextBox8
Tbl(n, 11) = Me.TextBox9
Me.ListBox1.List = Tbl
For i = 1 To 9: Me("textbox" & i) = "": Next i
For i = 1 To 2: Me("combobox" & i) = "": Next i
Me.TextBox1.SetFocus
End Sub