Foro de elhacker.net

<friendslist>
   <friends>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
      <friend>
         <Dato>Valor</Dato>
      </friend>
   </friends>
</friendslist>

Dim MyDoc As New System.Xml.XmlDocument
        MyDoc.LoadXml(XmlData)
        MyDoc.SelectSingleNode("//Nodo/Nodo2/Nodo3/Dato").InnerText

Public Class Form1
 
    ' Genero el documento XML.
    ReadOnly xml As System.Xml.Linq.XDocument =
    <?xml version="1.0" encoding="Windows-1252"?>
    <friendslist>
        <friends>
            <friend><Dato>Valor1</Dato></friend>
            <friend><Dato>Valor2</Dato></friend>
            <friend><Dato>Valor3</Dato></friend>
            <friend><Dato>Valor4</Dato></friend>
            <friend><Dato>Valor5</Dato></friend>
        </friends>
    </friendslist>
 
    Shadows Sub Load() Handles MyBase.Load
 
        ' Proyecto los elementos deseados en un type anónimo.
        Dim datos = From _friend As System.Xml.Linq.XElement
                    In xml.<friendslist>.<friends>.<friend>
                    Select New With {_friend.<Dato>.Value}
 
        ' Añado el miembro "Dato" al Listbox.
        ListBox1.Items.AddRange(datos.Select(Function(element) element.Dato).ToArray)
 
    End Sub
 
End Class

Lo he borrado para ahorrar espacio

Dim web As WebClient = New WebClient()
        Dim stream As Stream = web.OpenRead("http://URLDEPAGINAWEBCONXML")
        Dim reader As StreamReader = New StreamReader(stream)
        Dim content As String = reader.ReadToEnd
        Datos(content) ' --Una función que tengo en otra parte
        Dim MyDoc As New System.Xml.XmlDocument
        MyDoc.LoadXml(content)
        Dim doc As XDocument = XDocument.Parse(content)
        Dim datas = (From _friend In doc.<friendslist>.<friends>.<friend>
                  Select New With {_friend.<Dato>.Value})
 
        ListBox1.Items.AddRange(datas.Select(Function(x) x.Dato).ToArray)
 

Dim datos = From _friend As System.Xml.Linq.XElement
            In XDocument.Parse(xml).<friendslist>.<friends>.<friend>
            Select New With {_friend.<Dato>.Value}

Dim MyDoc As New System.Xml.XmlDocument
MyDoc.LoadXml(content)

ListBox1.Items.AddRange(
    (From _friend As XElement
     In XDocument.Parse(xml).<friendslist>.<friends>.<friend>
     Select New With {_friend.<Dato>.Value}
    ).Select(Function(element) element.Dato).ToArray
)

    Public Function Amigos()
        On Error Resume Next
        Dim web As WebClient = New WebClient()
        Dim stream As Stream = web.OpenRead("http://URLXML")
        Dim reader As StreamReader = New StreamReader(stream)
        Dim content As String = reader.ReadToEnd
        Datos(content)
        Dim datas = From _friend As System.Xml.Linq.XElement
            In System.Xml.Linq.XDocument.Parse(content).<friendslist>.<friends>.<friend>
            Select New With {_friend.<Dato>.Value}
        ListBox1.Items.AddRange(datas.Select(Function(element) element.Dato).ToArray)
    End Function

On Error Resume Next

    Private Sub Amigos()
 
        Dim reader As IO.StreamReader = Nothing
        Dim content As String = Nothing
        Dim friends = Nothing
 
        Try
 
            reader = New IO.StreamReader(Net.HttpWebRequest.Create("http:\\urlxml").
                                         GetResponse().GetResponseStream())
 
            content = reader.ReadToEnd()
 
            Datos(content)
 
            friends = From _friend As XElement
                       In XDocument.Parse(content).<friendslist>.<friends>.<friend>
                       Select New With {_friend.<Dato>.Value}
 
            ListBox1.Items.AddRange(friends.Select(Function(f) f.Dato).ToArray)
 
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
 
        Finally
            reader.Close()
 
        End Try
 
    End Sub