Dim xDoc As XElement = XElement.Load(XMLPfad)
 
Dim Kategory As String = "dinge"
Dim Parent As String = "soso"
 
Dim Daten = From PDaten In xDoc.<XMLEXPORT>.Descendants("ELEMENT") _
            From PDat In PDaten.Descendants("PERIPHERAL") _
            Where PDaten.Attribute("category").Value = Kategory _
            And PDat.@parenId = Parent _
               Select Typ = PDaten.Attribute("type").Value, _
                      parentId = PDat.Attribute("parentId").Value
 
MessageBox.Show(Daten.Count)     ' Zur Kontrolle, ob etwas gefunden wurde
 
For Each Eintrag In Daten
    Debug.Print(Eintrag.Typ & " / " & Eintrag.parentId)
Next