File Save and Open

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.ShowDialog()
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

        Dim writestring(0) As String
        writestring(0) = TextBox1.Text

        GC.Collect()
        System.IO.File.WriteAllLines(SaveFileDialog1.FileName, writestring)
        GC.Collect()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

        Dim readstring() As String

        GC.Collect()
        readstring = System.IO.File.ReadAllLines(OpenFileDialog1.FileName)
        GC.Collect()

        TextBox2.Text = readstring(0)

    End Sub
End Class