VBS Suchen und Ersetzen bei UTF8 XML Dateien funktioniert nicht

Hallo zusammen,
ich verzweifel gerade an einer - eigentlich total primitiven- Aufgabe.
Dazu muss ich sagen, dass ich mich mit VB nicht wirklich auskenne, wahrscheinlich übersehe ich daher einfach etwas.

Aufgabestellung:
Ich habe eine XML Datei im UTF8 Format.
Dort sind in einer Zeile mehrere Informationen, immer beginnent mit einem <row> und endet mit einem </row>
Das Programm, dass die Informationen dazwischen verarbeitet, kann diese aber nicht auslesen bzw gibt einen Fehler zurück, da
der Inhalt ohne das Beginnende <row> sein muss, kurz gesagt, ich möchte ein: Suche <row> und ersetze es durch nichts, Suche </row> und ersetzte es durch nichts. (Beides kann in der Datei öfter vorkommen)

Ich habe mich im Forum etwas durch gelesen und schon getestet, komme aber nicht auf die Lösung.
Ich dachte dieser einfache Befehl würde genügen:

Ein = "D:\Temp\Partlist.xml"
Aus = "D:Temp\Partlist_NEU.xml"
Set fso = CreateObject("Scripting.FileSystemObject")
Set rE = New RegExp
T = fso.OpenTextFile(Ein).ReadAll

rE.Pattern = "<row>"
T = rE.Replace (T, "")
rE.Pattern = "</row>"
T = rE.Replace (T, "")

fso.CreateTextFile(Aus).Write T

Laut Fehlermeldung wäre in der Letzten Zeile ein Ungültiger Prozedurablauf oder ungülstiges Argument.
Könnt ihr mir helfen? Ich verzweifel an so etwas einfachem (

Const XMLFILE = "D:\daten.xml"  
Set xmldoc = CreateObject("msxml2.domdocument.6.0")  
xmldoc.async = False
xmldoc.load(XMLFILE)
Set nodes = xmldoc.selectNodes("//row")  
If Not nodes Is Nothing Then
	For Each node In nodes
		node.parentNode.removeChild node
	Next
    xmldoc.save XMLFILE
End If
set xmldoc = Nothing

$file = 'D:\daten.xml'  
$xml = New-Object XML
$xml.Load($file)
$xml.SelectNodes('//row') | %{$_.parentNode.RemoveChild($_)}  
$xml.Save($file)

Sub WriteUTF8(file, text)
  With CreateObject("ADODB.Stream")  
  	.Type = 2
  	.Charset = "UTF-8"  
  	.Open
  	.WriteText text
  	.SaveToFile file, 2
  	.Close
  End With
End Sub

Function ReadUTF8(file)
    With CreateObject("ADODB.Stream")  
	.Type = 2
	.Charset = "UTF-8"  
	.Open
	.LoadFromFile(file)
	ReadUTF8 = .ReadText
	.Close
    End With
End Function

Const XMLFILE = "D:\daten.xml"  
Set xmldoc = CreateObject("msxml2.domdocument.6.0")  
xmldoc.async = False
xmldoc.load(XMLFILE)
Set nodes = xmldoc.selectNodes("//row")  
If Not nodes Is Nothing Then
	For Each node In nodes
                for each subnode in node.childNodes
                    node.parentNode.insertBefore subnode,node
                Next
		node.parentNode.removeChild node
	Next
    xmldoc.save XMLFILE
End If
set xmldoc = Nothing