<?xml version="1.0" encoding="utf-16"?>
<Tag>
  <Projektsuperwichtig>
    <Zeit Datum="08.03.2010">
      <HeuteZeit Dauer="1s" />
      </Zeit>
    <Zeit Datum="07.03.2010" />
    <HeuteZeit Dauer="2s" />
     <Zeit Datum="06.03.2010" />
    <HeuteZeit Dauer="3s" />
  </Projektsuperwichtig>
<Tag>

 x0.Load(filey)
        Dim xpath As String
        xpath = "Projektsuperwichtig"
 
        Try
            x1 = x0.DocumentElement.SelectSingleNode(xpath)
            Dim j As Integer = x1.SelectNodes(xpath).Count
              If j > -1 Then
 
                For Each xmlKnoten In x1.ChildNodes
                    Select Case xmlKnoten.NodeType
                           Case Xml.XmlNodeType.Element
 
                            x1 = xmlKnoten
 
 
 
                                msgbox(x1.DocumentElement.SelectSingleNode_
(xpath & "/Zeit/HeuteZeit@Dauer").Value)                                                                    
 
                    End Select
                Next
               End If