Dim fnd As Boolean
        Do
            fnd = reader.ReadToFollowing("Key")
        Loop While fnd AndAlso reader.ReadString().Contains("E-Total DC-A") = _
          False
 
        If fnd Then
            reader.ReadToNextSibling("Mean")
            Gesamtertrag.Text = reader.ReadString
            ' usw
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist