Dim a() As String = Split(My.Computer.FileSystem.ReadAllText( _
          "C:\Textdokumentmitzweizeilen.txt"), vbCrLf)
        TextBox1.Text = a(0)
        TextBox2.Text = a(1)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov