What does the following line do?
Set objFolder = objNameSpace.Folders(EmailAddress) & Search
You are concatenating a sting (Search) with an object (VBA retrieves the default string property - Name) and you end up with a string.
Try something like the following (off the top of my head):
Set objFolder = objNameSpace.Folders(EmailAddress)
For i = 0 To UBound(FolderToSearch)
set objFolder = objFolder.Folders.Item(FolderToSearch(i))
Next