Из Лиспа в VBA и обратно

Option Explicit
'for XML-------
Public objDoc As MSXML2.DOMDocument
Public objNode As MSXML2.IXMLDOMNode
Public objRoot As MSXML2.IXMLDOMElement
Public objCar As MSXML2.IXMLDOMElement
Public objXMLDOM As New MSXML2.DOMDocument26
Public objNodes As IXMLDOMNodeList
Public objBookNode As IXMLDOMNode

Option Explicit
Public NodeValue As Integer
Public Sub ReadXMLFiles(IXML As String)
            Call LoadXMLFiles(IXML)
            Call ReadFile
End Sub
Sub LoadXMLFiles(strXMLFilePath As String)
On Error GoTo ErrorHandler   ' Enable error-handling routine.
    objXMLDOM.async = False
    objXMLDOM.Load (strXMLFilePath)
    Exit Sub           ' Exit to avoid handler.
ErrorHandler:            ' Error-handling routine.
    Set objXMLDOM = Nothing
    End
End Sub
Sub ReadFile()
If FEX(App.path & "\Attr\Attributo.dwg") = False Then
    MsgBox "Missing Attribute file '" & App.path & "\Attr\Attributo.dwg'", vbCritical, "All Operations Aborted"
    Exit Sub
End If
CreateXML
Dim i As Integer
    Set objNodes = objXMLDOM.selectNodes("GOAL_PACK")
   For Each objBookNode In objNodes
    If objBookNode.selectNodes("COUNT").Length <> 0 Then
         NodeValue = objBookNode.selectSingleNode("COUNT").nodeTypedValue
    End If
    Next objBookNode
    For i = 1 To NodeValue
     Set objNodes = objXMLDOM.selectNodes("GOAL_PACK/GOAL" & i)
      For Each objBookNode In objNodes
       If objBookNode.selectNodes("IDWG").Length <> 0 Then
         IDWG = objBookNode.selectSingleNode("IDWG").nodeTypedValue
       End If
       If objBookNode.selectNodes("IMDB").Length <> 0 Then
         IMDB = objBookNode.selectSingleNode("IMDB").nodeTypedValue
       End If
       If objBookNode.selectNodes("ODWG").Length <> 0 Then
         ODWG = objBookNode.selectSingleNode("ODWG").nodeTypedValue
       End If
      Next
     Aborted = 0
     summa = 0
     ms = GetTickCount
     Begin
     Select Case Aborted
      Case 0
       buildXML i, summa, CInt((GetTickCount - ms) / 1000), , "ALL OK"
      Case 1
       ErrCount = ErrCount + 1
       ODWG = "0"
       buildXML i, 0, CInt((GetTickCount - ms) / 1000), "ABORTED", "Incorect DB Path"
      Case 2
       ErrCount = ErrCount + 1
       ODWG = "0"
       buildXML i, 0, CInt((GetTickCount - ms) / 1000), "ABORTED", "Incorect DWG template Path"
      Case 3
       ErrCount = ErrCount + 1
       ODWG = "0"
       buildXML i, 0, CInt((GetTickCount - ms) / 1000), "ABORTED", "Don't found Attr file"
     End Select
    Next
    ADoc.Close False
    Set objCar = objDoc.createElement("INFO")
    objRoot.appendChild objCar
    Set objNode = objDoc.createElement("GOALS_COUNTS")
    objNode.Text = NodeValue
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("ERROR_COUNTS")
    objNode.Text = ErrCount
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("TIME_SPEND")
    objNode.Text = Format((GetTickCount - ProcTime) / 1000, "#")
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("TIME_FINISHED")
    objNode.Text = Time$
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("DATE_FINISHED")
    objNode.Text = Date$
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("GENERATED_BY")
    objNode.Text = "DM2DA v0.3"
    objCar.appendChild objNode
    objDoc.Save OREP
If GetCommand.InStrCmd("DBAL ") Or GetCommand.InStrCmd(" DBAL") Then
Else
   Dim blockname  As String
    blockname = "DM2DA Info"
   If foundError = True Then
     blockname = blockname & " Found error in XML!"
   End If
   Call ShellTrayIconAdd(0, LoadResPicture("PINGUIN", vbResIcon), "DM2DA Info")
   Call ShellTrayBalloonTipShow(0, 1, blockname, "DM2DA has finished processing. For detailed information please see the report.")
End If
If GetCommand.InStrCmd("DSTS") Then DisableStSuite False
End Sub

Public Sub CreateXML()
    Set objDoc = New DOMDocument
    objDoc.resolveExternals = True
    Set objNode = objDoc.createProcessingInstruction( _
      "xml", "version='1.0' encoding='UTF-8'")
    Set objNode = objDoc.insertBefore(objNode, _
      objDoc.childNodes.Item(0))
    Set objRoot = objDoc.createElement("GOALREPORT")
    Set objDoc.documentElement = objRoot
    objRoot.setAttribute "xmlns:od", _
      "urn:schemas-microsoft-com:officedata"
End Sub
Public Function buildXML(i As Integer, attrI As Long, pT As Integer, Optional sts As String = "FINISHED", Optional desc As String = "")
    Set objCar = objDoc.createElement("GOAL" & i)
    objRoot.appendChild objCar
    Set objNode = objDoc.createElement("IDWG")
    objNode.Text = IDWG
    IDWG = ""
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("IMDB")
    objNode.Text = IMDB
    IMDB = ""
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("ODWG")
    objNode.Text = ODWG
    ODWG = ""
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("ATTR_INSERTED")
    objNode.Text = attrI
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("STATUS")
    objNode.Text = sts
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("DESCRIPTION")
    objNode.Text = desc
    objCar.appendChild objNode
    Set objNode = objDoc.createElement("PROCESING_TIME")
    objNode.Text = pT
    objCar.appendChild objNode
End Function