If no debug.print result, that tells me that there is an issue with the recurseofolders routine.

Change the email and run the test sub from a blank worksheet in my attachment's Module. It will put the folder names into column A.

Sub Test_RecurseOFolders()  
  Dim email$
  'Tools > References > Microsoft Outlook xx.0 Object Library > OK
  Dim oMF As Outlook.MAPIFolder, OL As Outlook.Application
  Dim i, a
  
  email = "ken@gmail.com"
  
  Set OL = CreateObject("Outlook.Application")
  Erase oOFs()

  RecurseOFolders GetFolderPath(email, OL)
  ReDim a(1 To UBound(oOFs) + 1)
  For i = 1 To UBound(a)
    a(i) = oOFs(i - 1)
  Next i
  Range("A2").Resize(UBound(a)) = WorksheetFunction.Transpose(a)  
End Sub
Later today or tonight, I can post code to make sure that your parent folder is the email value's folder.