[AccessD] A2K:Deleteing an Outlook appointment - Need Outlook Guru

Hi all
Need Outlook guru assistance
I have managed to create an Outlook Calendar appointment from access -
excellent, and I am capturing the calendar item's Unique ID called EntryID

Now does anyone know how I can delete the same calendar item using the
EntryID
The code below NEARLY works, but it dies on the line about finding a rec 
Based on the EntryID
I have scoured the net for examples to delete calendar items and just can't
find any. Another 2 days wasted <sigh>

Many thanks in advance

Darren

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Function somenewfunction()

   Dim ol As Outlook.Application
   Dim olns As Outlook.NameSpace
   Dim objFolder As Outlook.MAPIFolder
   Dim AllAppts As Outlook.Items
   Dim myAppt As Outlook.AppointmentItem

   
    Set ol = New Outlook.Application
    Set olns = ol.GetNamespace("MAPI")
    Set objFolder = olns.GetDefaultFolder(olFolderCalendar)
    Set AllAppts = objFolder.Items
Set myAppt = AllAppts.Find("[EntryID] = _
""00000000B5860CB6D252A64BB055F39CD7DABCC824332000""")
    
MsgBox myAppt.Subject

End Function
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""