Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("myText.txt", TextBox1.Text & "#", True)
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Clear()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            For Each line As String In My.Computer.FileSystem.ReadAllText("myText.txt").Split("#")
                ListBox1.Items.Add(line)
            Next
        Catch ex As system.IO.FileNotFoundException
            'file doesnt exist yet
        End Try
    End Sub