Dateien suchen im Laufwerk zwischen 2 Datums

Sub suche()
Dim x
Dim Monat
'tb_computername = 4226
With Application.FileSearch
.NewSearch
.LookIn = Pfad_history'hier steht der pfad zu dem ordner in dem gesucht werden soll.
If Len(Month(frm_history.cbo_datum_von)) 

dieses Programm so wie es jetzt ist findet alle dateien die z.b en Computernamen 4226 haben(tb_computername = 4226)
und den aktuell eingegebenen Monat in der Userform z.b Monat 11.
Aber ich benötige es so das er alle die Dateien findet die 4226 also Computernamen haben.
Und die Datums im Dateinamen in dem breich von - bis sind.
z.b Datum von = Monat == 4 und Jahr = 2008
und Datum bis = Monat 6 und Jahr 2008
Würde mich sehr über Hilfe freuen.
Danke gruß Chris