Update Outlook Public Calendar ?

[tdong]

Hello All

We just install exchange and create a public calendar (Public Folders\All Public Folders\Calendar) I need to be able to add appointment etc using vb6 is there a way I can access that I have permission etc on the folder I can create appointment using outlook.

Set oAppts = oApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items

this code only allow me to update the local calendar but not the public

Thanks a bunch