Dim Dateiname As String = "R:\BMEcat.xml"
 
        Dim X1 As XDocument = XDocument.Load(Dateiname)
 
        'Die Artikelliste laden
        Dim query = From daten In x1.Elements("BMECAT").Elements( _
          "T_NEW_CATALOG").Elements("PRODUCT") Select daten
        For Each node In query
            Console.WriteLine("Supplier_aid:" + node.<SUPPLIER_PID>.Value)
            Console.WriteLine("DESCRIPTION_SHORT:" + _
              node.<PRODUCT_DETAILS>.<DESCRIPTION_SHORT>.Value)
            Console.WriteLine("DESCRIPTION_Long:" + _
            node.<PRODUCT_DETAILS>.<DESCRIPTION_LONG>.Value)
        Next

Joachim