Imports System.Xml
Imports System.Net
Imports System.IO
Public Class Form2
    Dim tex As String
    Dim xmlDoc As Xml.XmlDocument = New Xml.XmlDocument
    Dim abc As String
    Dim filePath As String = "http://mitglied.lycos.de/wowsoulsociety/1.xml"
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        read("m1")
        Label1.Text = tex
        read("m2")
        Label2.Text = tex
    End Sub
    Sub read(ByVal p1)
        xmlDoc.Load(filePath)
        tex = xmlDoc.DocumentElement.SelectSingleNode("descendant::" & _
          p1).InnerText
    End Sub
    Sub write(ByVal p2, ByVal p3)
        Dim xml As New Xml.XmlDocument()
        Dim xmlKD As Xml.XmlNode
        Dim xmlKD2 As Xml.XmlNode
        Dim xmlText As Xml.XmlText
        xml.Load(filePath)
        xmlKD = xml.DocumentElement.SelectSingleNode(p2)
        xmlKD2 = xmlKD
        xmlKD2.RemoveAll()
        xmlText = xml.CreateTextNode(p3)
        xmlKD.AppendChild(xmlText)
        xml.DocumentElement.AppendChild(xmlKD)
        xml.Save(filePath) 'Hier gibt es den Fehler.
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        write("m1", TextBox1.Text)
        write("m2", TextBox2.Text)
        read("m1")
        Label1.Text = tex
        read("m2")
        Label2.Text = tex
    End Sub
End Class