Dim d As Date = CDate(TextBox1.Text)
        Dim ds As String = d.ToString("yyMMdd")
 
        Dim fls() As IO.FileInfo = New IO.DirectoryInfo("C:\").GetFiles("*.ta")
        For Each fs As IO.FileInfo In fls
            If fs.Name.Substring(2, 6) = ds Then
                ' Etwas mit der Datei tun...
                Debug.WriteLine(fs.Name)
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist