'On The Save Button's Click Event... Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click If SaveFileDialog1.ShowDialog = DialogResult.OK Then filename = SaveFileDialog1.FileName RichTextBox1.SaveFile(filename) End If End Sub