...
<TEST s="Test1" attr2="hallo1">Hier wäre das blöde Zeichen1</TEST>
<TEST s="Test2" attr2="hallo2">Hier wäre das blöde Zeichen2</TEST>
<DATEN>...
...

Do While reader.Name = "TEST"
                    strS = Trim(Allgemein.Decode(reader.GetAttribute("s")))
                    strAttr2 = Trim(Allgemein.Decode(reader.GetAttribute( _
                      "attr2")))
                    str_inhalt = LeseXmlElementInhalt(reader, strS, _
                    strLeseFehler)
'...merken der gelesenen Sachen..
Loop
If reader.Name = "DATEN" Then
....
 
 
'..die Funktion LeseXmlElementInhalt:
Private Function LeseXmlElementInhalt(ByRef vReader As XmlTextReader, ByVal _
  vstrErwAttributname As String, ByRef rstrFehler As String) As String
        Dim strRueckgabe As String = ""
        Try
            strRueckgabe = Trim(Allgemein.Decode(vReader.ReadInnerXml))
        Catch ex As XmlException
 
            If InStr(ex.Message, "ungültiges Zeichen") <> 0 Then
                strRueckgabe = ""
                rstrFehler = "Fehler beim Lesen des Attributes '" & _
                  vstrErwAttributname & "'. Der Text enthält ungültige Zeichen" & _
                  "und kann nicht dargestellt werden."
            Else
                strRueckgabe = ""
                rstrFehler = ex.Message
            End If