Dim doc As New XDocument(...)
Dim ns As XNamespace = doc.Root.@xmlns 'Namespace abrufen
Dim kzu = doc.Descendants(ns + "KZustand")
Dim dca = kzu.Where(Function(x) x.Element(ns + "InspektionsKode").Value = "DCA")
 
'Einzelwerte abrufen:
For Each w In dca
  Console.WriteLine(w.Element(ns + "VertikaleLage").Value)
  Console.WriteLine(w.Element(ns + "Timecode").Value)
  Console.WriteLine(w.Element(ns + "InspektionsKode").Value)
  Console.WriteLine(w.Element(ns + "Charakterisierung1").Value)
  Console.WriteLine(w.Element(ns + "Schachtbereich").Value)
  Console.WriteLine(w.Element(ns + "PositionVon").Value)
  Console.WriteLine(w.Element(ns + "Fotodatei").Value)
  Console.WriteLine(w.Element(ns + "FotoSpeichermedium").Value)
  Console.WriteLine(w.Element(ns + "Fotonummer").Value)
  Console.WriteLine(w.Element(ns + "Kommentar").Value)
Next
 
'Ausgabe:
'--------
'0.00
'0.73;90;75;90;0;
'DCA
'B
'J
'12
'A1_140325_154110.jpg
'WDT
'678
'HL, B