Line Input #1, sZeile
  txt9.Text = sZeile
 
  Do  
    Line Input #1, sZeile
    txt10.Text = txt10.Text & VbCrLf & sZeile
  Loop Until EOF(1)
 
  Close #1
End Sub

Do While Not EOF(1)
    Line Input #F, sZeile
    txt10.SelStart = Len(txt10.Text)
    txt10.SelLength = 1
    txt10.SelText = sZeile & vbNewLine & vbNullChar
Loop