Поиск файла в сетевой директории командой из формы

Private Sub Кнопка11_Click()
    Dim LResult As String, path, i, s, newname
    path = Array("L:\KDBANK\PLAZMA", "L:\KDBANK\PARTDIR", "L:\KDBANK\ZAGOTOVKA")
    For i = 0 To UBound(path)
        LResult = Dir(path(i) & "" & Me.Деталь & ".*")
        If LResult <> "" Then
            s = s & "Файл найден в папке " & path(i) & vbCrLf
            newname = InputBox("Новое имя файла " & Me.Деталь, , LResult)
            If newname <> "" And newname <> path(i) & "" & LResult Then
                Name path(i) & "" & LResult As path(i) & "" & newname
            End If
       End If
       
       'ищем в подпапках
       Dim str_path As String
       str_path = path(i) '''Перезапоминание чтобы подстроится под функцию
       s = s & FindSubFolder(str_path, Me.Деталь)
        Next
    If s = "" Then
        MsgBox "Файл не найден в указанных папках"
    End If
End Sub
 
Public Function FindSubFolder(fold As Variant, file)
    Dim fso As Object, folder As Object, subfold As Object
    Dim s, c, i, newname
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(fold)
    c = folder.SubFolders.Count
    For Each subfold In folder.SubFolders
        If fso.FileExists(subfold & "" & file) Then
            newname = InputBox("новое имя файла " & file, , subfold & "" & file)
            If newname <> "" And newname <> subfold & "" & file Then
                Name subfold & "" & file As newname
            End If
            FindSubFolder = FindSubFolder & newname
        End If
    Next
End Function

Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''заменила все слеши на обратные, чтобы на форуме корректно показывало
'''''''''''''''в приложении ---нак положено, левые
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Кнопка11_Click()
    Dim LResult As String, path, i, s, newname
    path = Array("L:/KDBANK/PLAZMA", "L:/KDBANK/PARTDIR", "L:/KDBANK/ZAGOTOVKA")
    path = Array("c:/temp", "c:/rabc", "c:/888")
    For i = 0 To UBound(path)
    Debug.Print i, path(i); "=========="
    Dim sd
    
    ''для отладки
    ''sd = Me.Деталь
    sd = "ww222"
    
        LResult = Dir(path(i) & "/" & sd & ".*")
        If LResult <> "" Then
        Debug.Print i, path(i); "/"; LResult
            s = s & "Файл найден в папке " & path(i) & vbCrLf
    ''для отладки
            'newname = InputBox("Новое имя файла " & sd, , LResult)
            newname = LResult & "1"
            
            Debug.Print "новое имя ", newname
            If newname <> "" And newname <> path(i) & "/" & LResult Then
                Name path(i) & "/" & LResult As path(i) & "/" & newname
            End If
       End If
       
       'ищем в подпапках
       Dim str_path As String
       str_path = path(i) '''Перезапоминание чтобы подстроится под функцию
       s = s & FindSubFolder(str_path, sd)
        Next
    If s = "" Then
        MsgBox "Файл не найден в указанных папках"
    End If
End Sub
 
Public Function FindSubFolder(fold As Variant, file)
    Dim fso As Object, folder As Object, subfold As Object
    Dim objfiles As Object
    Dim s, c, i, newname, sf
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(fold)
    ''Debug.Print folder.Name, "============"
    c = folder.SubFolders.Count
    For Each subfold In folder.SubFolders
    Debug.Print subfold.Name, "---"
    ''If fso.FileExists(subfold & "/" & file & "*.*") = True Then
    For Each objfile In subfold.Files
    sf = objfile.Name
    If sf Like file & "*.*" Then
        Debug.Print sf
    ''для отладки
            ''newname = InputBox("новое имя файла " & file, , subfold & "/" & file)
            newname = subfold & "/" & sf & "2"
           
            
            If newname <> "" And newname <> subfold & "/" & file Then
            Debug.Print "новое имя ", newname
                Name subfold & "/" & sf As newname
            End If
            FindSubFolder = FindSubFolder & newname
        End If
    Next objfile
''    End If
    Next
End Function

    'path = Array("L:\KDBANK\PLAZMA", "L:\KDBANK\PARTDIR", "L:\KDBANK\ZAGOTOVKA")
    path = Array("D:\TEMP") 'Для теста

Public Sub FindRecurs(file)
    Dim path, i, k, k0, j, newname, cat
    Dim fso As Object, folder As Object, subfold
    
    path = Array(""L:/KDBANK/PLAZMA", "L:/KDBANK/PARTDIR", "L:/KDBANK/ZAGOTOVKA"")
    
    ReDim cat(1, UBound(path))
    For i = 0 To UBound(path)
        cat(0, i) = 0
        cat(1, i) = path(i)
    Next
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    k = UBound(cat, 2)
    k0 = k
    i = 0
    Do While True
        For j = 0 To k
            If cat(0, j) >= i Then
                Set folder = fso.GetFolder(cat(1, j))
                For Each subfold In folder.SubFolders
                    k = k + 1
                    ReDim Preserve cat(1, k)
                    cat(0, k) = i + 1
                    cat(1, k) = subfold
                 Next
            End If
        Next
        If k0 = k Then Exit Do
        k0 = k
        i = i + 1
    Loop
    
    For i = 0 To UBound(cat, 2)
        If fso.FileExists(cat(1, i) & "/" & file) Then
            newname = InputBox("Новое имя файла " & file, , cat(1, i) & "/" & file)
            If newname <> "" And newname <> cat(1, i) & "/" & file Then
                Name cat(1, i) & "/" & file As newname
            End If
        End If
    Next
End Sub

If k = 0 Then
        MsgBox "Файл не найден в указанных папках"
        FindRecurs = False
        Exit Function  '''было exit sub
    End If
    For i = 0 To UBound(cat, 2)