How can I change the FileSearch code created for Excel 2003 to work for Excel 2010?

I use the attached code to update all .xls files in a folder "Files" with a current VBA module1

This code was created in Excel 2003 and the FileSearch is not supported in Excel 2007 upwards.
I get the following error:
Object doesn't support this action
The code stops at:
With Application.FileSearch

How can I change the code and achieve the same objective?

Sub TransferDataToWB()

Dim MyDir As String, strPath As String, vaFileName As Variant, I As Integer
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent

MyDir = ActiveWorkbook.Path ' current path

strPath = MyDir & "\files" ' files subdir
With Application.FileSearch
.NewSearch
.LookIn = strPath
.SearchSubFolders = False
.FileName = ".xls"
If .Execute > 0 Then
For Each vaFileName In .FoundFiles

' open the workbook
Workbooks.Open vaFileName

With ActiveWorkbook
Workbooks("Copy Module.xls").Worksheets("Configuration").Range("A1:K100").Copy Worksheets("Configuration").Range("A1:K100")

        Set VBProj = ActiveWorkbook.VBProject
        Set VBComp = VBProj.VBComponents("Module1")
        VBProj.VBComponents.Remove VBComp
         
CopyModule Workbooks("Copy Module.xls"), "Module1", ActiveWorkbook

.Save
.Close
End With
Next
End If
End With

End Sub

Select allOpen in new window