Проверяем наличие файла, если есть, тогда считываем текст
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists("save.txt") Then
Dim fileText As String = My.Computer.FileSystem.ReadAllText("save.txt")
RichTextBox1.Text = fileText
End If
End Sub
После закрытия формы, текст из RichTextBox1 сохраняеться
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Dim TextFile As New IO.StreamWriter("save.txt")
TextFile.WriteLine(RichTextBox1.Text)
TextFile.Close()
End Sub