Imports <xmlns:my="xx.yy.zz">
 
    Private Sub XTest()
 
        Dim doc = _
           <?xml version="1.0"?><my:Root xmlns:my="xx.yy.zz">
             <my:Test my:Name="Test1" my:Place="Test1place" my:Date="01.05.2008"/>
             <my:Test my:Name="Test2" my:Place="Test2place" my:Date="02.05.2008"/>
           </my:Root>
 
 
        Dim ns As XNamespace = "xx.yy.zz"
 
        doc.Root.Add(New XElement(ns + "Test", New XAttribute(ns + "Name", _
          "Test3"), New XAttribute(ns + "Place", "Test3place")))
 
        Dim name As String = "Test4"
        Dim newElem As XElement = <my:Test my:Name=<%= name %>></my:Test>
 
        doc.Root.Add(newElem)
 
    End Sub

________
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