cosi funziona
Private Sub Command1_Click()
Dim data1, data2, j As Date
data1 = CDate("01/01/2016")
data2 = CDate("01/12/2016")
j = data1
Do While j < data2

j = DateAdd("m", 1, j)
Text1.Text = Text1.Text & j & vbCrLf
Loop

End Sub