Dim i as long
dim a as variant
dim f as long
dim txt as string
 
f=freefile
open "Datei.txt" for input as #f
line input#f, txt
close#f
If instr(txt,chr(10) >0 then 
  A=split(txt,chr(10))
else
   A=split(txt,chr(13))
End if
F=freefile
Open"Resultat.txt" for output as #f
For i=0 to ubound(a)
  Print#f,a(i)
Next
close

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)