Hola buen dia tengo un problema con VB

El problema es que tengo 2 fechas y lo que necesito es que me diga cuantos meses son en total ademas de que año son cada meses por ejemplo:

15/09/2012 y 20/04/2014


.......AÑO....|....MESES.....|..........Letra
.......2012...........4..............Septiembre - Diciembre
.......2013...........12.............Enero - Diciembre
.......2014............4..............Enero - Abril

USE PUNTOS PARA DARLE FORMATO AL DISEÑO

Ese es as o menos el ejemplo y lo que llevo es muy poco y me confundo facil con las fechas.

Private Sub Command1_Click()

Dim Fecha3 As Date, Fecha4 As Date
Fecha3 = Text1.Text
Fecha4 = Text2.Text

lblmeses1.Caption = DateDiff("m", Fecha4, Fecha3) & ""

lblumes.Caption = MonthName(Month(Text1.Text))
lblpago.Caption = MonthName(Month(Text2.Text))

lblmeses.Caption = lblumes.Caption + " - " + lblpago.Caption

End Sub


GRACIAS POR SU AYUDA

Hola:

Esta es una manera muy simple de conseguirlo.

Código:

Dim Año As Integer, Fecha1 As Date, Fecha2 As Date
Fecha1 = CDate(Text1)
Fecha2 = CDate(Text2)

For Año = Year(Fecha1) To Year(Fecha2)
  Form1.Print Año; " - ";
  If Año = Year(Fecha1) Then
    ' El año1 sera siempre de Mes1 a Diciembre
    Form1.Print Month(Fecha1); " - 12"

  ElseIf Año = Year(Fecha2) Then
    ' El año2 siempre será de 1 a Mes2
    Form1.Print " 1 - "; Month(Fecha2)

  Else
    ' Los años intermedios serán de 1 a 12
    Form1.Print "1 - 12"
End If

Next

Estudiatela un poco y adaptala a tus necesidades

Como ves es bastante simple, obviamente si Año1 = Año2 los meses seran del mismo Año Mes1 a Mes2

Saludos