Получить семантическое ядро из текста

     '   Закидываем на сайт текст 
        WebBrowser1.Document.GetElementById("job_text").InnerText = TextBox5.Text

Imports Steming
'…
'использовано Steming.dll ([url]http://tvoystart.ru/work/?ELEMENT_ID=38374[/url])
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim stm As New Class1
    Dim txt As String = "Ответственность за выполнение требований Санитарных норм возлагается в установленном законом порядке на руководителей и должностных лиц предприятий, учреждений и организаций, а также граждан. гражданин требования санитарные нормы должность лицо выполнить руководитель"
    Dim wrd() As String = txt.Split({" "c, "."c, ","c}, StringSplitOptions.RemoveEmptyEntries)
    Dim wrd2(wrd.Length - 1) As String
    For i = 0 To wrd.Length - 1
        wrd2(i) = stm.Stem(wrd(i))
    Next
    Dim rz = (From tt In wrd2 Where tt.Length > 0 Group tt By tt Into Group Select GR = Group(0).PadRight(20) & " = " & Group.Count.ToString).ToArray
    TextBox1.Text = String.Join(vbCrLf, rz)
End Sub

        Dim doc = New HtmlAgilityPack.HtmlDocument()
        doc.LoadHtml(WebControl1.HTML)
        Dim tables As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//table[@class='seo_table']")
        ' Перебрать все строки во 2 таблице таблице
        Dim rows As HtmlAgilityPack.HtmlNodeCollection = tables(1).SelectNodes("//tr")
        For i As Integer = 0 To rows.Count - 1
            ' Перебор всех столбцов в этой строке
            Dim cols As HtmlAgilityPack.HtmlNodeCollection = rows(i).SelectNodes("//td")
            ' Получить значение столбца и вывести его
            Dim value As String = cols(0).InnerText
            ListBox1.Items.Add(value)
        Next

        Dim doc = New HtmlAgilityPack.HtmlDocument()
        doc.LoadHtml("D:/tbl.html") '   Таблица в файле
        Dim tables As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//*[contains(h3,'Семантическое ядро')]/div[@class='seo_scroll']/table[@class='seo_table']")
        '
        Dim rows As HtmlNodeCollection = tables(0).SelectNodes("//tr")
        '
        For i As Integer = 0 To rows.Count - 1
            '
            Dim cols As HtmlAgilityPack.HtmlNodeCollection = rows(i).SelectNodes("//td")
            '
            Dim value As String = cols(0).InnerText
            TextBox6.Text = TextBox6.Text + value
        Next

Dim rows As HtmlNodeCollection = tables(0).SelectNodes("//tr")