'call the savefiledialog SaveFileDialog1.ShowDialog() 'we use StreamWriter for writing characters to a stream Dim myStreamWriter As System.IO.StreamWriter 'we set default for savefiledialog filter SaveFileDialog1.Filter = "Text [*.txt*]|*.txt|All Files [*.*]|*.*" 'set the checkpath to true SaveFileDialog1.CheckPathExists = True 'set the Savefiledialog title SaveFileDialog1.Title = "Save File" Try 'gets a string containing the filename selected in the dialog box myStreamWriter = System.IO.File.AppendText(SaveFileDialog1.FileName) 'it writes the string to stream myStreamWriter.Write(RichTextBox1.Text) 'clears all buffers for the current writer and causes any 'buffered data to be written to the underlying stream myStreamWriter.Flush() Catch ex As Exception 'catch unnecesary errors End Try