Todestag-Jährung berechnen (Outlook Makro)

Public Sub TodestagJaehrungBerechnen()
    Dim kalender As Outlook.Folder
    Dim termin As Outlook.AppointmentItem

    Set kalender = Application.Session.GetDefaultFolder(olFolderCalendar)

    ' Alle Termine durchlaufen die in der Kategorie "Todestag" stehen haben (contains) und Serientermine sind
    For Each termin In kalender.Items
        If Not InStr(termin.Categories, "Todestag") = 0 And Not InStr(termin.Subject, "Todestag") = 0 And termin.IsRecurring Then
            termin.Location = "[Berechnet] Jährt sich dieses Jahr (" & CStr(Year(Now)) + ") zum " & _
                CStr(Year(Now) - Year(termin.GetRecurrencePattern.PatternStartDate)) & ". mal"

            termin.Body = "Via Makro berechnet am: " & CStr(Now)

            termin.Save
        End If
    Next
End Sub