Use VB XML Literals:
Dim marker2 = From x In data...<Procedure-Text> _
Where x.<A>.@ID = "marker2" _
Select x
The triple point syntax produces "all descendants" of the xml element, i.e. data...<Procedure-Test>will create a list of tags <Procedure-Test>insidedata
XML- " ", x.<A> <A> x. x <Procedure-Test>
, <A>, @attr. <A>.@ID = "marker2" True, ID <A> "marker2"
, x.<A>.@ID " ID <A> x"
<Procedure-Text>, Select x
:
Sub Main()
Dim data = <doc>
<Procedure-Text>
<A ID="marker1"></A>Do This Procedure
</Procedure-Text>
<Procedure-Text>
<A ID="marker2"></A>Do That Procedure
</Procedure-Text>
</doc>
Dim marker2 = From x In data...<Procedure-Text> _
Where x.<A>.@ID = "marker2" _
Select x
' prints the second procedure-text element
Console.WriteLine(marker2.FirstOrDefault().ToString())
Console.ReadKey()
End Sub