记事本保存问题（在线）

Question

前提：用的是commondialog和richtextbox控件
当文件是新建的，按保存时就弹出common.showsave进行保存
当文件是打开的，按保存时就把修改的字符串写入文件，并提示是否写入。
Private Sub mnuFileSave_Click()
On Error Resume Next
cdltest.CancelError = True
Dim s As String
  Dim fs As New FileSystemObject
  Dim a As TextStream
  Dim m As String
  Set a = fs.OpenTextFile(cdltest.FileName, ForWriting, True)
  s = Text1.Text
  Set fs = Nothing
  If s <> "" Then
  m = MsgBox("是否保存文件？", vbYesNoCancel, "提示")
  If m = vbYes Then
  a.Write s
  a.Close
  End If
  If Not m = vbCancel Then
  
  Else
  cdltest.ShowSave
End If
End sub
以上代码写了一半，脑子堵死了，等待高手帮我修改。谢谢

Answer 1

出什么问题了？Set fs = Nothing这句放到最后面去。

Answer 2

能不能重新帮我写一段代码
当文件是新建的，按保存时就弹出common.showsave进行保存
当文件是打开的，按保存时就把修改的字符串写入文件，并提示是否写入。

Answer 3

如果你用richtextbox控件，它与textbox控件不同你可以直接用
CommonDialog1.ShowSave 
RichText.SaveFile CommonDialog1.FileName   简单
打开同样