Class Module Alternative

Application.FileSearch - Class

To use it in your code just create the two class modules and then use it as such:

Example 2

Application.FileSearch - Replacement