Delete range of appointments from a 365 Shared Calendar using VSTO VB add-on

Question

I have been trying to bring this piece of code I found here up to date and make it work for my objective but I keep receiving an error where it expects olFolderCalendar to b