'设置自定义的错误信息，以供ReadXML 函数进行处理
Sub AddErr(ByVal errNum As String, sDescr As Variant, Optional isClearBeforeAdd As Boolean = False,Optional strSuggestions as String)

注意：这个函数比U盘版的函数多两个参数

一个是isClearBeforeAdd  ，因为U盘版每一个功能页面都可以创建一个新的变量空间，但是4FNexus 的 MyApp对象是全局公用的

所以，当你这个功能模块调用这个函数时候，建议在第一次调用时 设置 isClearBeforeAdd  为 true ，已清除其他模块设置的错误信息

另外一个是 strSuggestions ，用于出现错误的时候显示给用户的解决方案，和ShowErr的参数类似，请参考ShowErr函数

特别地：sDescr  可以是字符串也可以是对象，如果是对象，当ReadXML的时候会自动调用这个对象的ErrHandler(errNum as string ,errDescr as string) 过程
                例如 你可以 在一个窗口里面 增加一个 公用过程 Public Sub ErrHandler(errNum As String, errDescr As String)
                然后再这样调用 MyApp.AddErr errNo1, Me, True