Füllen mit Tagen

kann mir jemand beim befüllen dieser Listbox helfen?

Würde gern das die Listbox alle Tage (dd) eines Monats enthält (aber nur die eines Monats)

Ich selber habe es wiedernicht geschaft. So wie ich es dachte meldet er einen Überlauffehler (6) an.

Private Sub UserForm_Initialize()
Dim lDay As Long, lStart As Long, lEnd As Long
Dim iDay As Integer


lStart = DateSerial(Range("C1").Value, Range("B1").Value, 1)
lEnd = DateSerial(Range("C1").Value, Range("B1").Value + 1, 0)


For iDay = lStart To lEnd 'LastDay
iDay = iDay + 1
ListBox1.AddItem Format(DateSerial(Range("D1").Value, Range("B1").Value, iDay), "dd")
Next iDay
End Sub

Danke
Gruß
Felix