Gestion de pagos quincenales

[jlaosbarrios]

Hola estoy tratando de buscar una solución y lo que de momento e intentado hacer es un bucle el cual me a dado resultado pero me devuelve el valor en días
24/10/2014
25/10/2014
26/10/2014
27/10/2014
28/10/2014

y yo lo que busco es que me devuelva en meses.
24/10/2014
24/11/2014
24/12/2014
24/01/2015
24/02/2015

Estoy tomando el valor de Text1(14).Text que es donde ingreso la cantidad algo así ingreso en el text por ejemplo 5 y me devuelva 5 meses
y LblFecha que es donde muestro la fecha del sistema.

Private Sub Command1_Click()

Dim i As Date

For i = 1 To Text1(14).Text

MSFMovimientos.TextMatrix(i, 19) = DateValue(lblFecha + i)

Next i

End Sub

gracias de antemano.