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