Imports System

Imports System.Xml

Imports HtmlAgilityPack

Imports System.Xml.Linq

Imports System.Linq

​

Public Class Program

​

    Public Shared Sub Main()

        Dim html = <div id="catlist-listview" class="cat-listview cat-listbsize">  

 <ul>

  <li><a href="http://wantedlink1" rel="bookmark" title="sometitel1" class="sonra">title1</a></li>    

  <li><a href="http://wantedlink2" rel="bookmark" title="sometitel2" class="sonra">title2</a></li>

  <li><a href="http://wantedlink3" rel="bookmark" title="sometitel3" class="sonra">title3</a></li>

  <li><a href="http://wantedlink4" rel="bookmark" title="sometitel4" class="sonra">title4</a></li>

  <li><a href="http://wantedlink5" rel="bookmark" title="sometitel5" class="sonra">title5</a></li>

  <li><a href="http://wantedlink6" rel="bookmark" title="sometitel6" class="sonra">title6</a></li>

  <li><a href="http://wantedlink7" rel="bookmark" title="sometitel7" class="sonra">title7</a></li>

  <li><a href="http://wantedlink8" rel="bookmark" title="sometitel8" class="sonra">title8</a></li>

  <li><a href="http://wantedlink9" rel="bookmark" title="sometitel9" class="sonra">title9</a></li>

  <li><a href="http://wantedlink10 " rel="bookmark" title="sometitel10" class="sonra">title10</a></li>

 </ul>

</div>

        Dim htmldoc As HtmlDocument = New HtmlDocument()

        htmldoc.LoadHtml(html.ToString())

        'select <a> elements'

        Dim links = htmldoc.DocumentNode.SelectNodes("//*[@id='catlist-listview']/ul/li/a")

        'project to IEnumerable of href attribute value'

        Dim hrefs = links.Cast(Of HtmlNode)().Select(Function(x) x.GetAttributeValue("href", ""))

        'join the `hrefs`, separated by newline, into one string'

        Dim text = String.Join(Environment.NewLine, hrefs)

        Console.WriteLine(text)

    End Sub

End Class

​