Yapmak istediğiniz şayet iki tarih arasındaki farkı x yıl / x ay / x gün şeklinde ifade etmek ise Tarih2 textboxının AfterUpdate olayına aşağıdaki kodu girerseniz istediğiniz sonucu verecektir.

Private Sub Tarih2_AfterUpdate()

    Dim Dt1 As Date, Dt2 As Date, DtD As Long

    Dt1 = Me.Tarih1.Value

    Dt2 = Me.Tarih2.Value

    DtD = DateDiff("d", Dt1, Dt2)

    

    Me.Metin7 = Int(DtD / 365)

    Me.Metin9 = Int((DtD - (Metin7.Value * 365)) / 30)

    Me.Metin11 = DtD - (Metin7.Value * 365) - (Metin9.Value * 30)

End Sub

DateDiff tarih farkını hesapladığından Şubat'ın artık yıl durumlarını da dikkate alarak net hesaplama yapmanızı sağlar.