Tag in Tag ersetzen in VBScript

[Gab]

Um ein paar weiter Infos zu geben:
...
<tag name="art">
 <string>text</string>
<var name="text">
 <string>Texta</string>
</var>
<tag name="art">
 <string>sonder</string>
<var name="text">
 <string>Texta
   <char code="0A" />
  textb
 </string>
</var>
...

Es geht dabei um den Tag <string> unter <var name="Text">.

Eingelesen werden die Daten per XPath.
Die Pfade lauten:
node1: "/var/string[parent::var[@name='art']]"
node2: "/var/string[parent::var[@name='text']]",

der VB-Code:
Set nodeliste = DateiXML.documentElement.selectNodes(path)
 For I = 0 To (nodeliste.length - 1)
   neupath = path & "[position()=" & (I + 1)& "]"
   ReDim Preserve Feld(i)
   Set wertnode = DateiXML.documentElement.selectSingleNode(neupath & node1)
   wert1 = wertnode.text
   Set wertnode = DateiXML.documentElement.selectSingleNode(neupath & node2)
   wert2 = wertnode.text
   Feld(i) = wert1&";"&wert2
Next

Damit kann ich mir jeweils die beiden Tag-Paare zusammen ausgeben lassen.