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