<?xml version="1.0" encoding="ISO-8859-1"?>
<Lesezeichen>
	<Item ID="0000">
		<Text>TABLE OF CONTENTS</Text>
		<DateiPfad>\PPAP-PDF\..</DateiPfad>
		<Pages>1</Pages>
		<Rotation>0</Rotation>
	</Item>
	<Item ID="0001">
		<Text>Design Records</Text>
		<DateiPfad>\PPAP-PDF\..</DateiPfad>
		<Pages>2</Pages>
		<Rotation>0</Rotation>
			<SubItem ID="0001.1">
				<Text>Vendor Addendum</Text>
				<DateiPfad>\PPAP-PDF\..</DateiPfad>
				<Pages>A</Pages>
				<Rotation>0</Rotation>
			</SubItem>
		</Item>
	<Item ID="0002">
		<Text>Engineering Change Documents</Text>
		<DateiPfad>\PPAP-PDF\</DateiPfad>
		<Pages></Pages>
		<Rotation>0</Rotation>
	</Item>

Module Module1
 
    Sub Main()
 
        Dim xmlDoc As XDocument = XDocument.Load("...\...\Temp.xml")
        Console.WriteLine("All:")
        Dim Item = From Lesezeichen In xmlDoc.Descendants("Item") Where _
          Lesezeichen.Attribute("ID").Value = "0001"
        For Each element As XElement In Item
            Console.WriteLine("Item ID: " & Replace(Item.Attributes.First, "'", _
              ""))
            Console.WriteLine(element.Value)
        Next
        Console.ReadLine()
    End Sub
 
End Module