How can this code be modified to increase the number of months instead of days

Question

Thank you. I have a form with 15 textboxes from H1 to H15, along with textboxes 3 for the start date of the instalments and 6 for the payment duration for one instalment per month. As the number of days rises, it is necessary to adjust this code so that the number of months increases starting from the date of the payment.

For i = 1 To 15
     If i = 1 Then
         Me("h" & i) = TextBox3.Text
     Else
         Me("h" & i) = Format(CDate(Me.TextBox3.Value) + i - 1, "dd/mm/yyyy")
     End If
Next i

enter image description here

It is required to modify this code so that the number of months increases from the date of the installment, as it increases the number of days. enter image description here

Answer 1

You have to use dateadd.

For i = 1 To 15
    If i = 1 Then
        Me("h" & i) = TextBox3.Text
    Else
        Me("h" & i) = Format(DateAdd("m", i-1, CDate(Me.TextBox3.Value)), "dd/mm/yyyy")
    End If
Next i