Sub ChangeCurrentFolder()
    Dim s As Object
    Dim myolApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Set myolApp = CreateObject("Outlook.Application")
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set s = myNamespace.GetDefaultFolder(olFolderCalendar)
    s.Display
    Set myolApp.ActiveExplorer.CurrentFolder = _ 
    myNamespace.GetDefaultFolder(olFolderCalendar)
End Sub

Sub GoToParent()
Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
    With Outlook.Application.ActiveExplorer.Selection
        If .Count >  0  Then
'       MsgBox .item(1).Parent.DefaultItemType 'здесь проверьте,
'       возвращает ли правильный тип (отличный от 0) родительской папки
'       Следующая строчка - очень важно: обязательно нужен Set
        'так как задается свойство для ОБЪЕКТА
        Set myolApp.ActiveExplorer.CurrentFolder = _
        myNamespace.GetDefaultFolder(.item( 1 ).Parent.DefaultItemType)
        End If
    End With
End Sub

Set myolApp.ActiveExplorer.CurrentFolder = .item( 1 ).Parent