Outlook Geburtstag Kalender Modul

[MSCom]

Habe das in mein Desktop Outlook Kopiert
Habe Oddice 365 Home und Windows 10
und jetzt gib es mit ein Fehler an, kann mir jemand schreiben was da Falsch ist.???
die Fette Linie ist gelb aber es Funktioniert auch nicht mehr.

Fehler.

Sub BirthdayImport()
Dim myFolder As MAPIFolder
Set myFolder = Session.PickFolder
For i = myFolder.Items.Count To 1 Step -1
myFolder.Items(i).Display
mybirthday = myFolder.Items(i).Birthday
myFolder.Items(i).Birthday = "12.12.2000 "
myFolder.Items(i).Birthday = mybirthday
myFolder.Items(i).Save
myFolder.Items(i).Close 0
Next i
End Sub

Bekomme die Meldung es sei ein Laufzeit Fehler. ???????