Dim oRoot As IXMLDOMNodeList
   Dim oDOM As DOMDocument
   Set oDOM = New DOMDocument
   oDOM.async = False
   Call oDOM.Load("file.xml")
 
   Set oRoot = oDOM.selectNodes("XML")
   Set oRoot = oRoot(0).selectNodes("PRODUKTGRUPPEN")
   For Each oNode In oRoot(0).childNodes
      If Len(oNode.childNodes(0).Text) = 2 Then
         ...
      End If
   Next

Joachim