Outlook Calendar Appointments

I use the following code to create appointments in my Outlook calendar. I have 5 other calendars that I created in Outlook for my different departments. How can I add the appointments to a specific calendar rather than the Main(default) calendar?

Dim Mail_Object, Mail_Single As Variant
Dim myoutlook As Object
Dim myapt As Object

On Error Resume Next
Const olAppointmentItem = 1
Const olBusy = 2
Const olMeeting = 1
Set myoutlook = CreateObject("Outlook.Application")
Set myapt = myoutlook.CreateItem(olAppointmentItem)
With myapt
'This is where I have all the appointment info.
I removed it, as it is not the part of code in question
and to save space in this post because I use a lot of
"IF/ANDs" to determine the appointment info.
End With
Set myoutlook = Nothing
Set myapt = Nothing