ReplaceAll with an XAttribute object
Imports System Imports System.Xml Imports System.Xml.XPath Public Class MainClass Public Shared Sub Main() Dim root As XElement = _ <Root> <Child>child content</Child> </Root> root.ReplaceAll(New XAttribute("NewAttribute", "n")) Console.WriteLine(root) End Sub End Class