Dim parcelas As Integer

Dim PriParcela As String

ListParcelas.Clear

parcelas = 12 ' é apenas par referência

PriParcela = DateValue("10/03/08")

For P = 1 To parcelas

ListParcelas.AddItem "parcela " & P & "/" & parcelas & " -> " & Format(DateSerial(Year(Date), (Month(PriParcela) - 1) + P, Day(PriParcela)), "dd/mm/yy")

Next P

 

com o exemplo acima o dia será sempre o mesmo mudando apenas os meses

 

 

 

Obrigado a todos..

Consegui fazer o que queria com as dicas do Macaubal, porém as demais dicas são ótimas e agradeço pela ajuda de todos.

Um Abraço.

 

Luciano