VBA help to make a single Outlook Calendar Entry

Question

I\'m trying to run some VBA code in Excel, basically when it\'s saved I\'d like it to add a calendar entry. I have the basics working using the following code:

Pr