Public Sub RunSearch2(SearchPath As String)
    Dim strFile As String, FlagRec As Boolean, MN As String
    
    strFile = Dir(SearchPath, vbDirectory)
    Do Until strFile = ""
        If strFile <> "." And strFile <> ".." Then
            If strFile <> "." And strFile <> ".." And (GetAttr(SearchPath & strFile) And vbDirectory) = vbDirectory Then
                RunSearch2 SearchPath & strFile & "\"
                FlagRec = True
            Else
                Debug.Print strFile
            End If
        End If
        If FlagRec Then
          MN = Dir(SearchPath, vbDirectory)
          Do While MN <> strFile
            MN = Dir
          Loop
        End If
        strFile = Dir ' на эту строчку ругается "Invalid procedure call or argument"
    Loop
End Sub