TXT Import abbruch bei Sonderzeichen

Private Sub txtEinlesen()
Dim lstrDatei As String
Dim lstrName As String, lstrStrasse As String, lstrOrt As String
Dim liZeile As Integer
'die Startzeile wird hier festgelegt
liZeile = 1
'hier wird zu dem Laufwerk gewechselt, auf dem die Textdateien gespeichert sind
ChDrive ("O:\")
'hier wird in das Verzeichnis gewechselt
ChDir ("O:\TXT_Export")
'der Variablen lstrDatei wird aus dem aktuellen Verzeichnis der Name der ersten Textdatei ü _
bergeben
lstrDatei = Dir("*.txt")
'die Befehle, die sich zwischen "Do" und "Loop" befinden, werden so lange ausgeführt,  _
bis keine Textdateimehr gefunden wird
Do Until lstrDatei = ""
'die erste Textdatei wird geöffnet
Open lstrDatei For Input As #1
'die Befehle, die sich hier zwischen "Do" und "Loop" befinden, werden bis  _
zur letzten Zeile der aktuell geöffneten Textdatei ausgeführt
Do While Not EOF(1)
'es wird die erste Datenzeile aus der Textdatei eingelesen und an die  _
Variablen übergeben
Input #1, lstrName
'der Zellen A1 - C1 werden die ersten Daten der Textdatei übergeben, _
danach erhöht sich der Zeilenwert um 1 und die nächsten Daten werden übergeben
Range("A" & liZeile).Value = lstrName
liZeile = liZeile + 1
Loop
'die zuvor geöffnete Textdatei wird geschlossen
Close
'hier wird der Name der nächsten Textdatei an die Variable übergeben
lstrDatei = Dir
Loop
End Sub