Private Sub getCalendars()
Dim i As Integer
Dim group As NavigationGroup
Dim fol As NavigationFolder
Dim calModule As CalendarModule
Set calModule = Application.ActiveExplorer().NavigationPane.Modules.GetNavigationModule(olModuleCalendar)
For Each group In calModule.NavigationGroups
    If group.GroupType = olPeopleFoldersGroup Then
    For i = 1 To group.NavigationFolders.Count
        Set fol = group.NavigationFolders.item(i)
        ListBox1.AddItem (fol.DisplayName)
    Next
    End If
Next
End Sub

Private Sub getCalendarPermissions()
Dim Ses As Variant
Dim ACE As Variant
Dim fol As Variant

Set Ses = CreateObject("Redemption.RDOSession")
Ses.LogonExchangeMailbox user, server
Set fol = Ses.GetDefaultFolder(olFolderCalendar)
For Each ACE In fol.ACL
  ListBox1.AddItem (ACE.Name & " - " & ACE.Rights)
Next
End Sub