一个XML读写类

能读写任何XML配置文件，能实现用户层面的加解密，以下代码中的B64E函数为加密函数，B64D为解密函数，可以自己编写
生成的XML根节点为ZBS，可以替换为其它有意义的节点名称
Option Explicit
Public xmlDoc As DOMDocument
Public aNode As IXMLDOMElement '当前激活Node
Public xmlFilePath As String, ReadOnly As Boolean '保存路径,只读属性
Private sPassWd As String, sVer As Single
Private sChanged As Boolean
Public Property Get Changed() As Boolean '判断是否修改
    Changed = sChanged
End Property
Public Property Let Changed(sValue As Boolean)   '手工改动后要设置修改标志
   sChanged = sValue
End Property
Public Property Let PassWd(ByVal sValue As String)
    If sValue <> "" Then sValue = mG.B64E(sValue, , "32rv415")
    If sValue = sPassWd Then Exit Property
    Dim ddd As IXMLDOMNode, ddd1 As IXMLDOMNode, ddd2 As IXMLDOMAttribute, ddd3 As Boolean, ddd4 As String
    For Each ddd In xmlDoc.selectNodes("//*")
        Set ddd2 = ddd.Attributes.getNamedItem("Encode")
        If ddd2 Is Nothing Then
            ddd3 = True
        Else
            ddd3 = CBool(ddd2.Text)
        End If
        If ddd3 Then '需要加解密
            For Each ddd1 In ddd.childNodes
                If ddd1.nodeType = 3 Then
                    ddd4 = ddd1.Text
                    If sPassWd &