settings.ConformanceLevel = ConformanceLevel.Fragment
        settings.IgnoreWhitespace = True
        settings.IgnoreComments = True
        Dim reader As XmlReader = XmlReader.Create("C:/Downloads/a.xml", _
          settings)
        reader.ReadToDescendant("Info")
        reader.ReadToDescendant("Created")
        Datum.Text = reader.ReadString()
        Do
            reader.ReadToFollowing("Key")
 
        Loop Until InStr(reader.ReadString, "WindVel")
 
        reader.ReadToNextSibling("Mean")
        Gesamtertrag.Text = reader.ReadString
 
 
        Dim SchreiberTextdatei As IO.StreamWriter = New IO.StreamWriter( _
          "C:/Downloads/neuedatei.txt")
        SchreiberTextdatei.Write(Datum.Text)
        SchreiberTextdatei.Write(";")
        SchreiberTextdatei.Write(Gesamtertrag.Text)
        SchreiberTextdatei.Close()