Adding appointments

I'm trying to write a sub to automatically add appointments to my calendar. I've got this from the help file, which compiles but does not appear on my calendar (I'm using an exchange connection but have only one calendar) Can someone tell me what I'm doing wrong?

Please Login or Register  to view this content.

You need to add

Please Login or Register  to view this content.

prior to End With