Textdateien einlesen

Übungen zu unterschiedlichen Varianten

....

Open ConstTxtDatei For Input As #1

Do Until EOF(1)
   Line Input #1, strText
   Debug.Print strText
Loop

Close #1

....

Open ConstTxtDatei For Input As #1
   VarDat = Input$(LOF(1), 1)
   Debug.Print VarDat
Close #1

Die Zweite Variante ist schneller, da man keine VBA-Schleife (Loop) nutzt.