Ciao, c'è un modo con la funzione DateDiff
ora non ricordo bene quale sia il valore da usare come parametro.. ma indicativamente mi sembra una cosa del genere:
codice:
Private Sub Command1_Click()
    Dim G As Double
    Dim GG As Long
    Dim MM As Long
    Dim YY As Long
    
    G = DateDiff("d", dataIniziale, dataFinale)
    YY = Int(G / 365.5)
    G = (G - (YY * 365.5))
    MM = Int(G / 30.5)
    GG = G - (MM * 30.5)
    MsgBox YY & " " & MM & " " & GG
End Sub