Imports System.IO
 
Public Sub DateiAuslesen()
   Dim lReader As New StreamReader("C:\testdatei.txt")
   Dim lLine As String = ""
   Dim lLineIndex As Integer = 0
 
   'Schleife bis EOF durchlaufen
   lLineIndex = 0
   Do
      'Zeile aus Datei lesen
      lLine = lReader.ReadLine()
 
      'EOF?
      If IsNothing(lLine) Then
         Exit Do
      End If
 
      'In Textboxen schreiben
      Select Case lLineIndex
         Case 0: TextBox1.Text = lLine
         Case 1: TextBox2.Text = lLine
      End Select
 
      'Zeilenindex erhöhen
      lLineIndex = lLineIndex + 1
   Loop
 
   'Datei schließen
   lReader.Close()
End Sub

If there's anything to do - do it!