Option Explicit
Dim variable1 As Date
Dim variable2 As String
 
Private Sub Command1_Click()
 
variable1 = Combo1.Text & "." & Combo2.Text & "." & Combo3.Text 'Hier werden 
' deine eigenen Werte ins Date-Format geschrieben [TT.MM.JJJJ]
variable2 = DateDiff("m", variable1, Date)
variable2 = Int(CInt(variable2) / 12)
MsgBox variable2 'das Ergebnis im Programm verarbeiten
 
End Sub