gennemgå richtextbox linie for linie

Læser en fil ind i en richtextbox:
 
  Dim Filnummer as long
  Filnummer=Freefile
  Open "c:\test.txt" For Input As #Filnummer
  RichtxtFil2.Text = Input(LOF(Filnummer), 1)

Men - hvis der er en lang linie i txtfilen kan den brydes i richtextboxen. Kan man ikke undgå det?

Alternativet er at burge en listbox, og læse filen linie for linie, og smide en linie ind i hver post i listboxen... Men vil hellere bruge richtextbox hvis muligt