Dim XMLDoc As MSXML.DOMDocument
Dim XMLNodeList As MSXML.IXMLDOMNodeList
 
Set XMLDoc = New MSXML.DOMDocument
XMLDoc.async = False
XMLDoc.validateOnParse = True
XMLDoc.Load FILENAME                  ' FILENAME = XML-Datei
 
Set XMLNodeList = XMLDoc.getElementsByTagName("NAME")

For i=0 To XMLNodeList.Length-1
  If XMLNodeList.Item(i).Text="Meier" Then
    ' ...
    Exit For
  End IF
Next i