Termin aus Excel in Kalender exportieren... (Nicht den Standardkalender)

Hallo Zusammen,

ich möchte per Excelmakro einen Termin in den NICHT Standardkalender exportieren! 
Leider hilft mir Google nicht weiter, da ich über die Folder Methoden nicht auf den Kalender zugreifen kann.
Welche Ergänzungen muss ich vornehmen, damit ein anderer Kalender als der Standardkalender ausgewählt wird?

        Set myOLApp = CreateObject(„Outlook.Application“)
        Set myItem = myOLApp.CreateItem(1)

        With myItem
            .Subject = "Testart: " & Cells(i, 1).Value & " für HU: " & Headunit & ". DB: " & Datenbank
            .Body = bodytext
            .Location = Testrack
            .Start = Format(Start, „dd.mm.yyyy“) & " " & Format(Zeit1, „hh:mm“)
            .End = Format(Ende, „dd.mm.yyyy“) & " " & Format(Zeit2, „hh:mm“)
            .ReminderMinutesBeforeStart = 10
            .ReminderPlaySound = True
            .ReminderSet = True
            .Save
        End With

Ich bin für jegliche Hilfe dankbar!

Viele Grüße
Sebastian