在VBA中有没有一种方法可以在目录中找到一个字符串，然后再循环？

Sub FindStringInDirectory()
    Dim filePath As String
    Dim fileName As String
    Dim searchString As String
    
    ' 设置要搜索的目录路径
    filePath = "C:\Path\To\Directory\"
    
    ' 设置要搜索的字符串
    searchString = "example"
    
    ' 获取目录中的第一个文件
    fileName = Dir(filePath & "*.*")
    
    ' 循环遍历目录中的文件
    Do While fileName <> ""
        ' 检查文件名中是否包含搜索字符串
        If InStr(fileName, searchString) > 0 Then
            ' 找到匹配的文件，可以在这里进行相应的操作
            Debug.Print filePath & fileName
        End If
        
        ' 获取目录中的下一个文件
        fileName = Dir
    Loop
End Sub