File Suchen in bestimmten Ordnern

Sub SU_File_Suchen()
Dim strArr As Variant
Dim iCount As Integer, iFile As Integer
strArr = Array("Egloff")
For iCount = LBound(strArr) To UBound(strArr)
With Application.FileSearch
.NewSearch
.LookIn = "C:\CRM" ' Ich möchte hier .LookIn = "C:\CRM*"
.Filename = strArr(iCount)
.MatchTextExactly = True
.SearchSubFolders = True
.Execute
For iFile = 1 To .FoundFiles.Count
Cells(iFile, 1).Value = .FoundFiles(iFile)
Next iFile
End With
Next iCount
End Sub