Dim sPath As String = "z:\..."
Dim sParam As String = "*" & TextBox1.Text & "*.pdf"
 
With My.Computer.FileSystem.GetFiles(sPath, _
  FileIO.SearchOption.SearchTopLevelOnly, sParam)
 
  If .Count = 1 Then
    ' eindeutige Datei gefunden, die den Inhalt der 
    ' TextBox im Dateinamen enthält
    Dim sFile As String = .Item(0)
    MsgBox(sFile)
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de