aşağıdaki fonksiyonu dener misiniz?
toplama için

Function TrhTopla()

Dim Sure1, Sure2

 Sure1 = Split(Trim(TextBox7), " ")

 Sure2 = Split(Trim(TextBox9), " ")

 TSon = (CLng(Sure1(0)) + CLng(Sure2(0))) * 365 + (CLng(Sure1(2)) + CLng(Sure2(2))) * 30 + (CLng(Sure1(4)) + CLng(Sure2(4)))

 TextBox11 = TrhDagit(TSon)

' Debug.Print TSon, CLng(Sure1(0)) + CLng(Sure2(0)), CLng(Sure1(2)) + CLng(Sure2(2)), CLng(Sure1(4)) + CLng(Sure2(4))

End Function

Function TrhDagit(ByVal GunSay As Long) As String

Yil = Fix(GunSay / 365)

Ay = Fix((GunSay - Yil * 365) / 30)

Gun = GunSay - (Yil * 365 + Ay * 30)

TrhDagit = CStr(Yil) & " yıl " & Ay & " ay " & Gun & " gün"

End Function

çıkarma için topla işlemindeki + aşağıdaki gibi - yapılıp metin kutularının adını değiştirmeniz yeterli
TSon = (CLng(Sure1(0)) - CLng(Sure2(0))) * 365 + (CLng(Sure1(2)) - CLng(Sure2(2))) * 30 - (CLng(Sure1(4)) + CLng(Sure2(4)))