Es ist dasselbe Problem, das Du neulich schon einmal hattest. Warum schreibst Du immer ein Leerzeichen zwischen die Anführungsstriche?
Die Schleife läuft so lange, bis der Dateiname nicht ein Leerzeichen ist. Das wird wohl immer sein, auch dann, wenn keine Datei gefunden wurde, denn dann ist Filename$ leer (also "" und nicht " ")
Do While Filename$ <> " " -> Do While Filename$ <> ""