Получить путь к файлу?

Public Sub Main(pathMainFolder As String, criteriaFind As String) AS strig
    Dim fso As Object
    Dim result As String
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    ' FindFileInFolder fso.GetFolder("C:\Program Files\Far"), "*adm*.*" 
    result = FindFolderFile(fso.GetFolder(pathMainFolder), criteriaFind)
End Sub
 
'  Найти файл(папку)
Private Function FindFolderFile(ff As Object, criteriaFind As String) As String
    Dim fo As Object
    Dim f As Object
 
    For Each f In ff.Files
        ' If f.Name Like criteriaFind Then Debug.Print f.path
        If f.Name Like criteriaFind Then FindFolderFile
    Next f
    For Each fo In ff.SubFolders
        FindFolderFile fo, sFile
    Next fo
End Function

Option Explicit
 
Dim result As String
 
Sub tt()
    Call Main("c:\Users\Igor\Downloads\Telegram Desktop\", "*193*")
    MsgBox result
End Sub
 
Public Sub Main(pathMainFolder As String, criteriaFind As String)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' FindFileInFolder fso.GetFolder("C:\Program Files\Far"), "*adm*.*"
    result = FindFolderFile(fso.GetFolder(pathMainFolder), criteriaFind)
End Sub
 
'  Найти файл(папку)
Private Function FindFolderFile(ff As Object, criteriaFind As String) As String
    Dim fo As Object, f As Object
 
    For Each f In ff.Files
        ' If f.Name Like criteriaFind Then Debug.Print f.path
        If f.Name Like criteriaFind Then FindFolderFile = f.Path: Exit Function
    Next f
    For Each fo In ff.SubFolders
        FindFolderFile fo, criteriaFind
    Next fo
End Function

' Find all .csv files in directory "C:\DataFiles\"
Dim fList As String
Dim fName As String
fName = Dir( "C:\DataFiles\*.csv" )
' The variable fName now contains the name of the first .csv file within "C:\DataFiles\".
Do While fName <> ""
' Store the current file in the string fList.
fList = fList & vbNewLine & fName
' Get the next .csv file within "C:\DataFiles\".
fName = Dir()
' The variable fName now contains the name of the next .csv file within "C:\DataFiles\".
Loop
' Display the list of .csv files in a message box.
MsgBox( "List of .csv Files:" & fList )