Extensions.XPathEvaluate
Imports System Imports System.Xml.Linq Imports System.Xml.XPath Imports System.Collections Imports System.Collections.Generic Public Class MainClass Public Shared Sub Main() Dim d As XDocument = _ <?xml version='1.0'?> <root a='value'/> Dim att As IEnumerable = CType(d.XPathEvaluate("/root/@a"), IEnumerable) Console.WriteLine(att.Cast(Of XAttribute)().FirstOrDefault()) End Sub End Class