The original code may still be useful to you if you want to avoid typing in the multiple .Folders
Function GetFolder_Z(strFolderPath As String) As MAPIFolder
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim arrFolders() As String
Dim I As Long
On Error Resume Next
Debug.Print strFolderPath
' Drop \\ if passed into the function
strFolderPath = Replace(strFolderPath, "\\", "")
Debug.Print strFolderPath
' Fix possibly incorrectly facing slashes, when path is manually input
strFolderPath = Replace(strFolderPath, "/", "\") ' <--- Error was here
Debug.Print strFolderPath
arrFolders() = Split(strFolderPath, "\")
Set objApp = Application
Set objNS = objApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For I = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(I))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
' Stepping through from LoopFolder with F8
' you would have seen objFolder is nothing
Set GetFolder_Z = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function