fs = New FileStream(AuswertungsDatei, FileMode.Open, _
              FileAccess.Read)
            sw = New StreamReader(fs)
            Do Until sw.Peek() = -1
                Zeile = sw.ReadLine()
                Anza = Anza + Zeile.Count
            Loop
            sw.Close()
 
            Dim sb As New System.Text.StringBuilder(Anza * Len(Zeile))
            For i = 1 To Anza
                sb.Append(Zeile)
            Next i
 
            RichTextBox1.Clear()
            RichTextBox1.Text = sb.ToString()