Hallo,
probier mal statt:

Do Until Koordinaten = Empty

das hier:

Do While Not EOF(DateinNr)

Grüße
David