Private Sub mnusave_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|所有文件|*.*|"
CommonDialog1.ShowSave
RichTextBox1.SaveFile CommonDialog1.FileName, 1 '这个1是什么意思啊??
End Sub

方法如下

object.SaveFile(pathname, filetype)

filetype值如下

rtfRTF 0 （缺省）RTF。RichTextBox 控件把它的内容存为一个 .rtf 文件。
rtfText 1 文本。RichTextBox 控件把它的内容存为一个文本文件。

谢谢