Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Writer As System.IO.StreamWriter
Writer = New System.IO.StreamWriter("C:\Textfile.txt")
Writer.Write(TextBox1.Text)
Writer.Close()
Dim Reader As System.IO.StreamReader
Reader = New System.IO.StreamReader("C:\Textfile.txt")
Dim tempstring As String
Do
tempstring = Reader.ReadLine()
TextBox1.Text = TextBox1.Text + tempstring + vbLf
Loop Until tempstring = ""
End Sub
End Class