Dim Lines_a() As String = System.IO.File.ReadAllText("C:\temp.txt").Split( _
  Environment.NewLine)
        Dim LineCount As Integer = Lines_a.Count
 
        Dim lines() As String = IO.File.ReadAllLines("C:\temp.txt")
 
        If Anzahl_Werte.Value = 1 Then
            Dim Anfangszeile As Integer = 2
            Dim neueZeile As Integer = (Anfangszeile + 3)
            rtb_Vorschau.Text = lines(Anfangszeile)
            Do
                rtb_Vorschau.AppendText(lines(neueZeile) + ControlChars.NewLine)
                neueZeile += 3
            Loop Until neueZeile = LineCount
        ElseIf Anzahl_Werte.Value = 2 Then
            Dim Anfangszeile As Integer = 2
            Dim neueZeile As Integer = (Anfangszeile + 4)
            rtb_Vorschau.Text = lines(Anfangszeile) & vbTab & lines( _
              Anfangszeile + 1)
            Do
                rtb_Vorschau.AppendText(lines(neueZeile) & vbTab & lines( _
                  neueZeile + 1) + ControlChars.NewLine)
                neueZeile += 4
            Loop Until neueZeile + 1 = LineCount
usw.
End If