Public Sub MakeTerm()
   Dim objTerm As AppointmentItem
   Dim objSerie As RecurrencePattern
   Dim Geburtsdatum As Date            'Geburtsdatum
   Dim name As String                   'Vorname Name
   Dim sTermin As Date                  'Datum des Ereignis
   Dim sBetreff As String               'Betreff des Ereignis
 
   'Daten aufnehmen
   name = InputBox("Name (Vorname Nachname)")
   Geburtsdatum = InputBox("Geburtstag (tt.mm.jjjj): ")
   If IsDate(Geburtsdatum) = False Then Exit Sub
   sTermin = Format(Geburtsdatum, "dd.mm.yyyy")
   sBetreff = name & " (" & Format(Geburtsdatum, "dd.mm.yy") & ")"
 
   'Ereignisserie erstellen
   Set objTerm = Outlook.Application.CreateItem(olAppointmentItem)
   With objTerm
      .AllDayEvent = True
      .Start = sTermin
      .Subject = sBetreff
      .Categories = "Geburtstag"
      .ReminderMinutesBeforeStart = 0 'keine Erinnerung
      .ReminderSet = False
   End With
 
   Set objSerie = objTerm.GetRecurrencePattern
   With objSerie
        .PatternStartDate = sTermin
        .RecurrenceType = olRecursYearly
   End With
 
   objTerm.Save             'Objekt wird gespeichert
   'objTerm.Display          'Objekt wird angezeigt
 
   Set objTerm = Nothing
   Set objSerie = Nothing
   MsgBox ("Das Serienereignis zum Geburtstag von " & name & " wurde angelegt." _
     & Chr$(13) & "Es wurde jedes Jahr am " & Format(Geburtsdatum, "dd.mm.") & _
     " ab dem Jahr " & Format(Geburtsdatum, "yyyy") & " in den Kalender" & _
     "eingetragen.")
End Sub

Vielen Dank an alle in diesem Forum, welche mir Ihre Zeit schenken und sich mit meinen Problemen befassen! Ich weiß das ernsthaft zu schätzen und danke allen, die sich mit dieser Frage befassen herzlich!!!