Imports System

Imports System.Xml

Imports HtmlAgilityPack

Imports System.Xml.Linq

Imports System.Linq

​

Public Class Program

​

    Public Shared Sub Main()

        Dim html = <ol class="list-data-b">

<li class="in-ttl-b">(a) kanji; a Chinese character [ideograph]

    <ul class="list-data-b-in"><li class="text-jejp text-c"><span class="ex">漢字で書く</span></li><li class="text-jeen text-c">write in <i>kanji</i> [<i>Chinese characters</i>]</li></ul>

    <ul class="list-data-b-in"><li class="text-jejp text-c"><span class="ex">常用漢字</span></li><li class="text-jeen text-c"><i>Chinese characters</i> for everyday use (in Japan)</li></ul>

</li>

</ol>

        Dim HTMLDoc As HtmlDocument = New HtmlDocument()

        HTMLDoc.LoadHtml(html.ToString())

        Dim ols = HTMLDoc.DocumentNode.SelectNodes("//ol[@class='list-data-b']")

        For Each ol As HtmlNode in ols 

            Dim outerLi = ol.SelectSingleNode("li[@class='in-ttl-b']/text()[1]")

            Console.WriteLine(outerLi.InnerText)

        Next

    End Sub

End Class

​