Public Sub ReplaceNodeText(XPath As String, NewText As String)
' Benötigte XML-Objekte
Dim xml_list As MSXML2.IXMLDOMNodeList         ' Liste
Dim xml_nod As MSXML2.IXMLDOMNode              ' Element
 
    With xml_obj
        Set xml_list = .selectNodes(XPath)
        ' Schleife über Liste
        For Each xml_nod In xml_list
            With xml_nod
                xml_nod.Text = NewText
            End With
        Next xml_nod
    End With
End Sub