_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

for x = 0 to AnzZeilen
    ASatz = TextBox1.Lines(x)
    FileSatz.Write(Asatz)
next

while (TextReader.Peek() > -1)
    ESatz = TextReader.ReadLine()
    TextBox1.Lines(x) = Esatz
    x = x + 1
end while

Dim Content As New System.Text.StringBuilder
While (TextReader.Peek() > -1)
  Content.AppendLine(TextReader.ReadLine())
End While
TextBox1.Text = Content.ToString

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de