Dynamische Textboxen ansprechen

Private Sub UserForm_Activate()
Dim c As MSForms.TextBox
Dim j As Integer
monat = Mid(Kapa1.KapaDatum.Value, 2, 1) 'Wird über vorherige Userform definiert
jahr = Right(Kapa1.KapaDatum.Value, 4)
If jahr = 2018 Then jahr = 37
If jahr = 2019 Then jahr = 25
If jahr = 2020 Then jahr = 13
For s = 1 To jahr - monat
Set c = Kapa3.Controls.Add("Forms.TextBox.1", "TextBoxK0" & s, True) 'Erzeugt textboxen in ä   _
_
_
bhängigkeit des Datums
With c
.Name = "TextBoxK0" & s
.Height = 20
.Top = 35 * s
.Left = 12
.Text = "TextBoxK0" & s
End With
Next
End Sub

Private Sub TextBoxK_Change()

Dim t As String

t = TextBoxK.Text

TextBoxK01.Text = Split(t, vbTab)(0) 'First Word

TextBoxK02.Text = Split(t, vbTab)(1)

TextBoxK03.Text = Split(t, vbTab)(2)

TextBoxK04.Text = Split(t, vbTab)(3)

TextBoxK05.Text = Split(t, vbTab)(4)

TextBoxK06.Text = Split(t, vbTab)(5)

TextBoxK07.Text = Split(t, vbTab)(6)

TextBoxK08.Text = Split(t, vbTab)(7)

TextBoxK09.Text = Split(t, vbTab)(8)

TextBoxK010.Text = Split(t, vbTab)(9)

End Sub