[CODE]Dim mysfd As New SaveFileDialog() If mysfd.ShowDialog() = Windows.Forms.DialogResult.OK Then Dim fileName As String fileName = mysfd.FileName If fileName = "" Then Return End If Me.rtxt_Main.SaveFile(fileName, RichTextBoxStreamType.PlainText) End If[/CODE]