Add element to XDocument
Imports System Imports System.Reflection Imports System.Xml Module Module1 Sub Main() Dim xdoc As XDocument = XDocument.Load("C:\hamlet.xml") Dim xe As XElement = New XElement("PERSONA","new value") xdoc.Element("PLAY").Element("PERSONAE").Add(xe) Dim query = From people In xdoc.Descendants("PERSONA") Select people.Value Console.WriteLine("{0} Players Found", query.Count()) For Each item In query Console.WriteLine(item) Next End Sub End Module