Oprette aftale i delt/specifik kalender

Hej herinde,

Jeg har denne makro:

Sub Test()
    Dim Obj_Event As Outlook.AppointmentItem
    Set Obj_Event = Application.CreateItem(olAppointmentItem)

    With Obj_Event
        .Subject = "Test"
        .Location = ""
        .AllDayEvent = True
        .Display
    End With
End Sub

Den opretter en aftale i min egen kalender, men vil gerne at den oprettes i en specifik kalender som er delt.
Kalenderen hedder "møde"

Håber nogen kan hjælpe mig her..