Application.FileSearch - Problem

With Application.FileSearch
.NewSearch
.LookIn = such_pfad
.Filename = "*" & raw_datum & "*.*"
Debug.Print .Filename
Debug.Print .LookIn
gefunden = 0
.Execute
gefunden = .FoundFiles.count
Debug.Print gefunden
If gefunden > 0 Then
GoTo okay
Else
frm_zip_auswahl.Show
End If
End With

such_pfad und raw_datum sind Strings. "raw_datum" enthält 6 Ziffern. (umwandlung zu Integer hat nichts gebracht...)
Das Problem ist dass er die Datei nicht findet. Der Pfad stimmt, der Dateiname auch. Wenn ich die entsprechenden Werte aus der Debug-Box kopiere und per "Start|Ausführen" bzw "Suchen" eingebe (beides natürlich außerhalb von Excel) kommen auch die Dateien raus die ich brauche, jedoch nicht im Makro.
Was komisch ist: wenn ich eine datei a.bmp anlege und danach ausdrücklich suche dann findet er sie. das gleiche gilt für *.*, hier findet er wie gewollt alle dateien in dem gewünschten verzeichnis...
kann mir jemand einen oder mehrere Tipps geben an was das liegen kann?
Viele Grüße