Do
                fnd = reader.ReadToFollowing("Key")
 
            Loop While fnd AndAlso reader.ReadString.Contains("E-Total DC-A") = _
              False
 
            If fnd AndAlso reader.ReadString.Contains("E-Total DC-A") = True _
              Then
                MsgBox("Wenn der Richtiger Wert gefunden wurde wird das hier" & _
                "angezeigt")
                Gesamtertrag.Text = reader.ReadString
                SchreiberTextdatei.Write(Datum.Text)
                SchreiberTextdatei.Write(";")
                SchreiberTextdatei.Write(Gesamtertrag.Text)
                SchreiberTextdatei.WriteLine("")
            End If