Dim xml = "<?xml version=""1.0"" encoding=""utf-16""?> <!DOCTYPE ....>" & _
          "</Tabelle1>"
 
        Dim xml_Doc As New Xml.XmlDocument
 
        xml_Doc.LoadXml(xml)
        Dim xml_element As Xml.XmlElement = xml_Doc.GetElementById("Test1")
 
        Dim teststring As String
 
        teststring = xml_element.OuterXml
        Debug.WriteLine("teststring=" & teststring)
        teststring = xml_element.GetAttribute("Wert2")
        Debug.WriteLine("teststring=" & teststring)
 
        xml_element.SetAttribute("Wert2", "Test5")
        teststring = xml_element.OuterXml
        Debug.WriteLine("teststring=" & teststring)
 
        xml_Doc.Save("F:\test\temp.xml")

    teststring=<Zeile IDwert="Test1" Wert2="Test2" />
    teststring=Test2
    teststring=<Zeile IDwert="Test1" Wert2="Test5" />

    <?xml version="1.0" encoding="utf-16"?>
    <!DOCTYPE Tabelle1[<!ELEMENT Tabelle1 ANY> <!ELEMENT Zeile ANY> <!ATTLIST _
      Zeile IDwert ID #REQUIRED>]>
    <Tabelle1>
      <Zeile IDwert="Test1" Wert2="Test5" />
      <Zeile IDwert="Test3" Wert2="Test4" />
    </Tabelle1>

________
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