VB源码--如何保存文件 存储资料到记事本中

'┏〓〓〓〓〓〓〓〓〓 SaveFile,start 〓〓〓〓〓〓〓〓〓┓
'［详介］：
'保存时有时会乱码或变样
'［简介］：
'保存字符信息到文本文件，保存资料
Function SaveFile(zname, zbody,optional msg as boolean)
   '[mycode_id:177],edittime:2011-9-9 下午 03:29:57
      On Error GoTo err
      Dim myfile, fso
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set myfile = fso.CreateTextFile(zname, True)
      myfile.Write zbody
      Set myfile = Nothing
      Set fso = Nothing
      If msg Then MsgBox "保存成功！" & vbCrLf & zname
      Exit Function
      err:
      'MsgBox err.Description
End Function
'┗〓〓〓〓〓〓〓〓〓  SaveFile,end  〓〓〓〓〓〓〓〓〓┛