Find folder path for string in cell

I get a run-time error (76): path not found.

It points to this line when debugging:

For Each fsoSubfolder In CreateObject("Scripting.FileSystemObject").GetFolder(strPath).SubFolders