XDocument og For Each

Hej,

Jeg ville høre om nogen kunne hjælpe mig med en lille udfordring. Jeg er netop begyndt at bruge XDocument fordi det er krævet i Windows Store Apps og kan ikke rigtig bruge xmlDocument mere.

Men jeg kan ik rigtig få det til at virke som jeg ville:
Uanset syntes jeg hvad jeg gør så kan jeg ikke lave For Each på en foreach. mit problem er at jeg i XML filen har flere niveauer.
f.eks.
<Devices>
<Device id="01">
  ...
  <Alarm id="01">
  ...
  </Alarm>
</Device>
<Device id="02">
  ...
  <Alarm id="300">
  ...
  </Alarm>
</Device>
</Devices>

Det der er i det det er at jeg skal lave et loop for hvilken device har vi med at gøre ID 01 så skal jeg have et loop for kun de alarmer. Men jeg har forsøgt en masse men ligemeget om det er ID 01 eller 02 så viser den samme Alarm ID'er og ikke kun dem neden under Device 01.

Nogen der har en ide til det:

        Dim xDoc As XDocument = XDocument.Load("Assets/devices.xml")
        Dim xmlDevices = xDoc.Root.Elements("Device")
        For Each xmlDevice In xmlDevices
            If xmlDevice.Attribute("id").Value = "01" Then

                Dim xmlAlarms = xmlDevices.Descendants("Alarm")
                For Each xmlAlarm In xmlAlarms
                    test = test & xmlAlarm.Attribute("id").Value
                Next
            End If
        Next


Med Venlig Hilsen
Thomas Nissen