Получить данные с сайта

 Dim Results As New List(Of String) 'тут будем все хранить

  Dim WC As New WebClient With {.Proxy = New WebProxy}
        WC.Encoding = System.Text.Encoding.UTF8
        Dim Source As String = WC.DownloadString("http://www.ufolog.ru/names/order/Иванов")
 
        Dim Spl() As String = Split(Source, "<div class=""discussion_block_incom"">")
        For i = 1 To Spl.Count - 1
            Results.Add(ReplaceText(Split(Spl(i), "<span class=""helpful"">")(0)))
        Next
 
        For i = 0 To Results.Count - 1
            RichTextBox1.Text &= "Вариант № " & i + 1 & vbNewLine & Results(i) & vbNewLine & "-------------------" & vbNewLine
        Next

Function ReplaceText(ByVal Text As String) As String 'убираем лишнее из текста
        Dim Result As String = ""
        Result = Text.Replace("<p>", "")
        Result = Result.Replace("<br>", "")
        Result = Result.Replace("<br />", "")
        Result = Result.Replace("<br/>", "")
        Result = Result.Replace("<noindex>", "")
        Result = Result.Replace("</noindex>", "")
        Result = Result.Replace(vbCrLf, "")
        Result = Result.Replace(Chr(9), "")
       Result = Result.Replace("»", "»") 'тут в первых скобочках &#187 ; (надо убрать пробел перед ;)
        Result = Result.Replace("«", "«") 'тут &#171 ; 
        Return Trim(Result)
    End Function

Dim text As String = Await GetText("http://www.ufolog.ru/names/order/%D0%98%D0%B2%D0%B0%D0%BD%D0%BE%D0%B2")

Async Function GetText(address As String) As Task(Of String)
    Dim httpHandler As New HttpClientHandler With {.AutomaticDecompression = DecompressionMethods.All}
    Dim httpClient As New HttpClient(httpHandler)
    Dim html As String = Await httpClient.GetStringAsync(address)
    Dim doc = New HtmlParser().ParseDocument(html)
    Dim node = doc.QuerySelector(".message_list > .messages_entry p")
    node.QuerySelector(".helpful").Remove()
    node.QuerySelector("noindex").Remove()
    Return node.InnerHtml.
        Replace("<br>", Environment.NewLine).
        Trim()
End Function

    Function ReplaceText(ByVal Text As String) As String
        Dim Result As String = ""
        Result = Text.Replace("<p>", "")
        Result = Result.Replace(vbCrLf, "")
        Result = Result.Replace("<br>", Environment.NewLine)
        Result = Result.Replace("<br />", Environment.NewLine)
        Result = Result.Replace("<br/>", "")
        Result = Result.Replace("<noindex>", "")
        Result = Result.Replace("</noindex>", "")
        Result = Result.Replace(Chr(9), "")
        Result = System.Net.WebUtility.HtmlDecode(Result)
        Return Trim(Result)
    End Function