<?xml version="1.0" encoding="ISO-8859-1" ?> 
<bezirk>
	<dst>711	
	<ou>
		<dstliste>
			<dstnr>711.01</dstnr>
			<dstnr>711.02</dstnr>
			<dstnr>026.29</dstnr>
			<dstnr>735.81</dstnr>			
		</dstliste>
		<serverliste>
...
...
...

Dim xml_Datei As String = "Bezirk.xml"
Dim xml_Path As String = "H:\Eigene Dateien\tmp\"
 
Dim XMLDoc As XElement = XElement.Load(xml_Path + xml_Datei)
 
Debug.WriteLine(XMLDoc)
'Dim query = (From Anzahl In XMLDoc.Elements() Select Anzahl).Count
 
 
'Dim eintrag As XElement = _
' (From Teil In XMLDoc.Elements("dst") _
' Select Teil).First
'Debug.WriteLine(eintrag.ToString)
 
 
Stop
Dim eintrag1 = _
From Teil In XMLDoc.Elements("dst").Elements("ou").Elements("dstliste") _
Select Teil
 
'Dim xml_Liste = From target In XMLDoc.<dstliste> _
'Select Info1 = target.Element("dstnr").Value
 
Stop