[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]