eai pessoal to com um problema em um calculo com duas datas

eo seguinte tenho que saber os meses que estão entre as datas estipuladas ex:

entre as data 23/05/2003 a 21/12/2004 estão meses:

06/2003,07/2003,08/2003,09/2003,10/2003,11/2003,12/2003,01/2004,02/2004,03/2004,04/2004

05/2004/,06/2004,07/2004,08/2004,09/2004,10/2004,11/2004,

 

 

valeu

Private Sub Command1_Click()
  Dim Data1 As Variant, Data2 As Variant
  Dim Vetor()
  Data1 = "23/05/2003"
  Data2 = "21/12/2004"
  ReDim Vetor(1 To (DateDiff("m", Data1, Data2) - 1))
  subMesesDoIntervalo Vetor, Data1, Data2
  For i = 1 To (DateDiff("m", "23/05/2003", "21/12/2004") - 1)
    MsgBox Vetor(i)
  Next
End Sub

Private Sub subMesesDoIntervalo(ByRef Vetor(), Data1 As Variant, Data2 As Variant)
  Dim i As Integer
  For i = 1 To (DateDiff("m", Data1, Data2) - 1)
    Vetor(i) = Format(DateAdd("m", i, Data1), "mm/yyyy")
  Next
End Sub