Imports System Imports System.Reflection Imports System.Xml Module Module1 Sub Main() Dim xdoc As XDocument = XDocument.Load("data.xml") xdoc.Element("PLAY").Element("PERSONA").SetValue("new value") Console.WriteLine(xdoc.Element("PLAY").Element("PERSONA").Value) End Sub End Module