Open calendar next week

[HWijngaarD]

I got this code:

Dim myOlApp As Outlook.Application
Set myOlApp = New Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim Appointment As Outlook.AppointmentItem
Dim ocalItems As Object
'Dim ocalItems As Outlook.Items
 
Set myNamespace = myOlApp.GetNamespace("MAPI")
 
    Set myRecipient = myNamespace.CreateRecipient("someone")
    
    myRecipient.Resolve
        
    If myRecipient.Resolved = True Then
            
        Dim MyMapI As Outlook.MAPIFolder
        Set MyMapI = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderCalendar)
    
        MyMapI.Display
    
    End If
 
Set Appointment = Nothing
Set ocalItems = Nothing
Set myNamespace = Nothing
Set myRecipient = Nothing
Set myOlApp = Nothing

Can someone help me with the following:
I want to see the calendar of someone but not from this week or this day but next week or last week.
Something to do with the selected date???

'course in CODE.