Wert alle 4 Tage in Zellen schreiben

Hallo Zusammen und allen noch einen schönen Sonntag!
Ich scheitere mal wieder an mir selbst.
Ich habe versucht mit folgendem Makro:
Dim c As Long
Dim lng As Long
If ComboBox1.ListIndex = 3 Then
For c = 2 To 5845 Step 4
For i = 1 To 1 Step 4
If Sheets("Termine").Cells(2, c) = CDate(Me("TextBox" & i)) Then
Sheets("Termine").Cells(3, c) = TextBox2
End If
Next i
Next c
End If
zu erreichen. Er findet in Zeile 2 ein Datum aus TextBox1 und ab da trägt er mir den Wert aus TextBox2 alle 4 Spalten in Zeile 3 ein. Was muss ich tun um das zu realisieren. Danke im Voraus!
Gruß Frank H.