Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Write("m1", "fer1", "der text", "C:\MeineXML-Datei.xml")
    End Sub
 
    Public Sub Write(ByVal t1 As String, ByVal t2 As String, ByVal t3 As _
      String, ByVal filename As String)
        Dim xw As New Xml.XmlTextWriter(filename, System.Text.Encoding.Default)
        xw.Formatting = Xml.Formatting.Indented ' Einrückung aktivieren: Viel 
        ' besser lesbar
        xw.Indentation = 5 ' 5 Zeichen einrücken
 
        xw.WriteStartDocument()
        xw.WriteStartElement("chek")
        xw.WriteStartElement(t1)
        xw.WriteElementString(t2, t3)
        xw.WriteEndElement()
        xw.WriteEndElement()
        xw.WriteEndDocument()
        xw.Close()
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co