Salve ragazzi,
problema risolto. Era sotto gli occhi e non lo vedevo.
Questo è il codice che ho fatto e funziona!!!!!

Adesso qualche anima PIA saprebbe dirmi come ricavare solo il nome e non tutto il percorso?????

Sono proprio imbranato!!!!

Sub CercaFile()

Set fs = Application.FileSearch
With fs
.LookIn = "Y:\07-QAQC\TAD Document System"
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
file = .FoundFiles(i)
UserForm1.Label1.Caption = "Found " & .FoundFiles.Count & " file(s)"
UserForm1.ListBox1.AddItem .FoundFiles(i)
Next i
End If
End With

End Sub