Hallo liebe VBAler

Kann mir jemand auf die Sprünge helfen:

Meine Strukur sieht wie folgt aus:

  Meine Kalender Kalender(mein Kalender)
Gruppe
  Person 1 
  Person 2
  Person 3
Freigegebene Kalender
  Person 1
  Person 2
  Person 3

Wie kann ich nun auf die Kalender der einzelnen Personen in der Gruppe "Gruppe" und "Freigegebene Kalender zugreifen? Und ja ich möchte nur Elemente auslesen und sich nicht verändern. 

    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.NameSpace
    Dim olMyCalendar As Outlook.folder
  Set olApp = Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set sharedCalendars = New Collection   
 Dim groupFolder As Outlook.folder
    For Each groupFolder In olNamespace.Folders("Gruppe").Folders
        If groupFolder.DefaultItemType = olAppointmentItem Then
            excelWS.Cells(currentRow, 1).Value = "Gruppe- " & groupFolder.Name
            currentRow = currentRow + 1
        End If
    Next

Vielen Dank im Voraus.