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?

Sub AddBreakfast()

Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.AppointmentItem
    
Set myItem = myOlApp.CreateItem(olAppointmentItem)

With myItem
    .Subject = "Breakfast"
    .Location = "Manor"
    .Start = #6/20/2009 7:50:00 AM#
    .Duration = 20
End With

End Sub

You need to add

.Save

prior to End With