RichTextBox1.AutoWordSelection = False

Listbox1.MultiColumn = True

    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

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)