Hallo,
ich bilde mir ein, die Items-Collection startet bei 0.
demnach eventuell so probieren:
For olItemsCount = 0 To calendarItems.Count -1
??? GetDefaultFolder(olFolderDeletedItems) ??? Something Silly - indeed.