我们开发的程序运行过程中难免会出现各种各样的错误，今天土嘎嘎公布一款保存错误的模块，可将出现的错误全部保存在 TXT里面供程序员观察升级程序

模块代码：

        Public Function baocuo(ByVal yy As String) ' 

            yy = Replace(yy, vbCrLf, "")

            yy = Replace(yy, vbCr, "")

            yy = Replace(yy, vbLf, "")

            Open App.Path & "/Err.txt" For Append As #1  '保存内容文件

               Print #1, yy & "---" & Now()

            Close #1

        End Function

窗体调用代码

call baocuo("错误原因")