Private Sub menusaveas_Click()
 CommonDialog1.Filter = "文本文档(*.txt)|所有文件(*.*)|*.*"
    On Error Resume Next
    
    CommonDialog1.ShowSave
    filename = CommonDialog1.filename
    RichText.SaveFile filename, rtfText
       
    result = GetFileTitle(filename)
    Me.Caption = filename
    ask = False
End Sub

里面的filename = CommonDialog1.filename修改为filename = CommonDialog1.filename & ".txt"

谢谢楼上的
但是改了以后保存没反映

我已经验证过了的

谢谢LS,我又试过了
但是只对另存为有用,对保存还是不起作用

你的代码里面有两个：
"文本文档(*.txt)|所有文件(*.*)|*.*"

都没写全，把它们改成以下就好了：

"文本文档(*.txt)|*.txt|所有文件(*.*)|*.*"

老大徒伤悲,好久不见你，你也开始误导人家了哈！

误导不误导，反正我运行能得出他要的结果。