Нужно чтоб программа нашла и вернула полный путь файла "qwer.dat", корорый находится на диске "С:\" - VB

Private mobjFSO As New FileSystemObject
 
Private Sub Command1_Click()
    ProcessFolder "c:\"
End Sub
 
Private Sub ProcessFolder(ByVal pstrRootFolder As String)
    
    Dim objFolder As Folder
    Dim strFolder As String
    Dim strPath As String
    
    strFolder = pstrRootFolder
 
    For Each objFolder In mobjFSO.GetFolder(strFolder).SubFolders
        DoEvents
        strPath = mobjFSO.BuildPath(strFolder, objFolder.Name)
           If mobjFSO.FileExists(strPath & "\qwer.dat") Then
        MsgBox "Есть файл - " & strPath & "\qwer.dat"
        End If
        
        ProcessFolder strPath
    Next objFolder
    
End Sub