[RESOLVED] Open Outlook folder in new window

I found the code to locate and open the containing folder of an email in Outlook. (from http://www.vboffice.net/sample.html?...5&cmd=showitem)

Public Sub GetItemsFolderPath()
Dim obj As Object
Dim F As Outlook.MAPIFolder
Dim Msg$
Set obj = Application.ActiveWindow
If TypeOf obj Is Outlook.Inspector Then
Set obj = obj.CurrentItem
Else
Set obj = obj.Selection(1)
End If
Set F = obj.Parent
Msg = "The path is: " & F.FolderPath & vbCrLf
Msg = Msg & "Switch to the folder?"
If MsgBox(Msg, vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = F
End If
End Sub

How would I modify this code to open the folder in a new window? (Please be gentle - I know nothing about VB :blush:)

Thanks!