Linq to xml output valaue from a certain element

Sorry for the long XML sample below. It has two records and each record has three similar Nodes (<datafield tag="500">). What I want to accomplish is get the value of the second Node <datafield tag = “5000”>. The following code I gets the value for all three nodes but I want something like get elementat(1). Appreciate your help. I tried this but it didn’t worked.

MsgBox(xEle.Elements.ElementAt(1).Value)
Dim xd As XDocument = XDocument.Load("C:\Users\stopete\Desktop\Marc_conv ertxml.xml")
If xd IsNot Nothing Then
Dim datafields = From datafield In xd.Descendants("datafield")
Where (datafield.Attribute("tag").Value = "500")
Select datafield

For Each xEle In datafields

MsgBox(xEle)

Next

End If

XML:

<?xml version="1.0"?>
<collection>
<record>
<leader>03799cam 2200493Ia 4500</leader>
<controlfield tag="001">648168072
<subfield code="a">Battle, Stephen L.</subfield>
</controlfield>
<controlfield tag="003">SIRSI</controlfield>
<controlfield tag="005">20110207150903.0</controlfield>
<controlfield tag="008">100716s2010 caub bm f000 0 eng d</controlfield>
<controlfield tag="007">cr b|||||a||||</controlfield>
<datafield tag="035" ind1=" " ind2=" ">
<subfield code="a">AD#</subfield>
<subfield code="c">AD#</subfield>
<subfield code="d">AD#</subfield>
</datafield>
<datafield tag="037" ind1=" " ind2=" ">
<subfield code="a">hey</subfield>
</datafield>
<datafield tag="040" ind1=" " ind2=" ">
<subfield code="a">ADA524509</subfield>
<subfield code="b">DTI</subfield>
</datafield>
<datafield tag="043" ind1=" " ind2=" ">
<subfield code="a">n-us---</subfield>
</datafield>
<datafield tag="049" ind1=" " ind2=" ">
<subfield code="a">AD#A</subfield>
</datafield>
<datafield tag="100" ind1="1" ind2=" ">
<subfield code="a">Battle, Stephen L.</subfield>
</datafield>
<datafield tag="245" ind1="1" ind2="0">
<subfield code="a">Lessons in legitimacy</subfield>
<subfield code="h">[electronic resource] :</subfield>
<subfield code="b">the LTTE end-game of 2007--2009 /</subfield>
<subfield code="c">Stephen L. Battle.</subfield>
</datafield>
<datafield tag="260" ind1=" " ind2=" ">
<subfield code="a">Monterey, California :</subfield>
<subfield code="b">Naval Postgraduate School,</subfield>
<subfield code="c">2010.</subfield>
</datafield>
<datafield tag="300" ind1=" " ind2=" ">
<subfield code="a">xiv, 57 p. :</subfield>
<subfield code="b">ill. (1 col map) ;</subfield>
<subfield code="c">28 cm.</subfield>
</datafield>
<datafield tag="500">
<subfield code="a">Thesis Advisor(s): Borer, Douglas A. ; Second Reader: Chatterjee, Anshu.</subfield>
</datafield>
<datafield tag="500">
<subfield code="a">"June 2010."</subfield>
</datafield>
<datafield tag="500">
<subfield code="a">Author(s) subject terms: LTTE, Counter Insurgency, COIN, Sri Lanka, Tamil Eelam, Eelam War IV, SLAF, South Asia.</subfield>
</datafield>
</record>
<record>
<leader>02919cam 2200493Ia 4500</leader>
<controlfield tag="001">648167554</controlfield>
<controlfield tag="003">SIRSI</controlfield>
<controlfield tag="005">20110207150310.0</controlfield>
<controlfield tag="008">100716s2010 caua bm f000 0 eng d</controlfield>
<controlfield tag="007">cr b|||||a||||</controlfield>
<datafield tag="035" ind1=" " ind2=" ">
<subfield code="a">AD#</subfield>
<subfield code="c">AD#</subfield>
<subfield code="d">AD#</subfield>
</datafield>
<datafield tag="037" ind1=" " ind2=" ">
<subfield code="a">hey</subfield>
</datafield>
<datafield tag="040" ind1=" " ind2=" ">
<subfield code="a">ADA524541</subfield>
<subfield code="b">DTI</subfield>
</datafield>
<datafield tag="043" ind1=" " ind2=" ">
<subfield code="a">n-us---</subfield>
</datafield>
<datafield tag="049" ind1=" " ind2=" ">
<subfield code="a">AD#A</subfield>
</datafield>
<datafield tag="100" ind1="1" ind2=" ">
<subfield code="a">Battaglia, Neal F.</subfield>
</datafield>
<datafield tag="245" ind1="1" ind2="0">
<subfield code="a"开发者_运维技巧>Utility of satellite LIDAR waveform data in shallow water</subfield>
<subfield code="h">[electronic resource] /</subfield>
<subfield code="c">Neal F. Battaglia.</subfield>
</datafield>
<datafield tag="260" ind1=" " ind2=" ">
<subfield code="a">Monterey, California :</subfield>
<subfield code="b">Naval Postgraduate School,</subfield>
<subfield code="c">2010.</subfield>
</datafield>
<datafield tag="300" ind1=" " ind2=" ">
<subfield code="a">xvi, 67 p. :</subfield>
<subfield code="b">ill. (some col.) ;</subfield>
<subfield code="c">28 cm.</subfield>
</datafield>
<datafield tag="500">
<subfield code="a">Thesis Advisor(s): Olsen, Richard C. ; Second Reader: Trask, David M.</subfield>
</datafield>
<datafield tag="500">
<subfield code="a">"June 2010."</subfield>
</datafield>
<datafield tag="500”>
<subfield code="a">Author(s) subject terms: LIDAR Waveforms, Underwater LIDAR signature, Spaceborne LIDAR.</subfield>
</datafield>
</record>
</collection> 

---

Not a VB guy but this should work:

Dim xd As XDocument = XDocument.Load("C:\Users\stopete\Desktop\Marc_conv ertxml.xml")
If xd IsNot Nothing Then
Dim datafields = From datafield In xd.Descendants("datafield")
Where (datafield.Attribute("tag").Value = "500")
Select datafield
Skip 1
Take 1

Or if you don't want to change the query:

MsgBox(xEle.Elements.Skip(1).Take(1).Single().Value)

---

 Dim xd As XDocument = XDocument.Load(Path.Combine(Path.GetDirectoryName(Application.ExecutablePath), "XMLFile1.xml"), LoadOptions.None)
        If xd IsNot Nothing Then


            Dim ele As XElement = xd.Descendants("datafield").Where(Function(a) a.Attribute("tag").Value = "500")(1)

            MsgBox(ele.Value)


        End If