How do I save an activex appointment to a different outlook calendar?

Found this tidbit of code on this forum that allowed me to create appointments in outlook. Now the challenge that I'm having is to redirect the output into a specific calendar that I can specify (as opposed to the default "My Calendar"). This unique calendar could then be saved and exported to a workgroup to share calendar items.

I need some help, because I'm not at all familiar with activex control. Thanks!!!

% Create the appointment object
appointment = h.CreateItem('olAppointmentItem') 
% Set some common properties of the appointment object.
appointment.Subject = 'Myappointment'
appointment.Body = 'This appointment was created in MATLAB'
appointment.Location = 'myLocation'
appointment.Start = '04/26/2006'
appointment.End = '04/27/2006'
appointment.ReminderSet = 1
appointment.ReminderMinutesBeforeStart = 5
appointment.IsOnlineMeeting = 0
%Save the appointment
appointment.Save()