在VB中怎么把RichTextBox1的内容保存为文本格式的文件呢?用上通用对话框？

Private Sub Command1_Click()
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
RichTextBox1.SaveFile(CommonDialog1.Filename, rtfText)
end if
End Sub

若要输出RichTextBox1选定的部分内容，则需要使用二楼的方法：Print #1, RichTextBox1.SelRTF

部件-Microsoft Common Dialog Control 6.0
CommonDialog1.Filter = "文本文件|*.txt"
CommonDialog1.ShowSave

If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As #1
Print #1, RichTextBox1.Text
Close #1
Else
MsgBox "按了取消键"
End If