Dim nLine As Long
...
 
      nLine = 0
      Do Until EOF(F)
        nLine = nLine + 1
        Line Input #F, LineOfText
 
       Select Case nLine
         Case 1  ' 1. Zeile
           TextBox1.Text = LineOfText
 
         Case 2  ' 2. Zeile
           TextBox2.Text = LineOfText
 
          ' usw.
       End Select 
 
      Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de