How to create outlook meeting invite with shared calendar?

[emyk]

I have a vbscript that launches a meeting invite with some emails using the default calendar. Now I need to update the script to launch a meeting invite using shared calendar (SharedCalendar).

Sub btnClose_OnClick
		Window.Close
	End Sub
	
	Sub CreateICS(ToList)
	
		Dim objOL   'As Outlook.Application
		Dim objAppt 'As Outlook.AppointmentItem
		
		Const olAppointmentItem = 1
		Const olMeeting = 1
		
		Set objOL = CreateObject("Outlook.Application")
		Set objAppt = objOL.CreateItem(olAppointmentItem)
					
		With objAppt
			.Subject = ""
			.Body = ""
			
			.Start = Now
			.End = DateAdd("h", 1, .Start)
			   
			' make it a meeting request
			.MeetingStatus = olMeeting
			.RequiredAttendees = ToList
			.OptionalAttendees = ""
			
			'.Send
			.Display()
		End With
	
		Set objAppt = Nothing
		Set objOL = Nothing

	End Sub

Can someone please provide some guidance or direction on how start a meeting invite using shared calendar?