Sub SelectNodesByCriteria()
Dim xmldoc As MSXML2.DOMDocument50
Dim xmlNodeList As MSXML2.IXMLDOMNodeList
Dim myNode As MSXML2.IXMLDOMNode
Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
xmldoc.Load ("C:\yourFile.xml")
Set xmlNodeList = xmldoc.selectNodes("//Name")
If Not (xmlNodeList Is Nothing) Then
For Each myNode In xmlNodeList
Debug.Print myNode.Text
If myNode.Text = "old Text" Then
myNode.Text = "new Text"
xmldoc.Save "C:\newFile.xml"
End If
Next myNode
End If
Set xmlDoc = Nothing
End Sub