Textboxen(1 to x) in Userform hinzufügen via VBA

Dim myTextBox(1 To 4) As TextBox
Dim i, j As Integer
For i = 1 To 100
If ComboBox5.Text = ActiveSheet.Cells(i, 5) Then
If ComboBox5.Text <> "" Then
For j = 1 To 4
UserForm1.Controls.Add myTextBox(1)
With myTextBox(j)
.Text = ActiveSheet.Cells(i, 6)
End With
Next j
End If
End If
Next i

Ich bin allen zu Dank verpflichtet, die mir weiterhelfen können!
Gruß aus Aachen,
Florian