IE im Private Mode per VBA öffnen und URL Übergeben

...

...
If Me.Private_Mode = True Then
        Set wss = CreateObject("WScript.Shell")  
        Set sh = CreateObject("Shell.Application")  
        wss.exec "%ProgramFiles%/Internet Explorer/iexplore.exe -private"  
        ''You will probably need a delay here  
        For Each oWin In sh.Windows
            If TypeName(oWin.Document) = "internet explorer" Then  
            Set IE = oWin
            Exit For
            End If
        Next
 
        With IE
        .navigate Me.URL
        
     
        Do While .busy
            DoEvents
            Loop
            Do While .ReadyState <> 4
        DoEvents
        Loop
        End With
 
        Else
        
        CreateObject("Shell.Application").ShellExecute Me.URL  
        

        End If
...