Как определить кодировку текста с кириллицей

    '   Функция угадывает кодировку и сама загружает страницу при помощи WebClient
    Public Function DownloadString(address As String, defaultEncoding As Encoding) As String
        If defaultEncoding Is Nothing Then
            Throw New ArgumentNullException("defaultEncoding")
        End If
 
        Dim data As Byte()
        Dim contentTypeHeader As String = Nothing
 
        Using webClient As New WebClient()
            '    Здесь вставляем User-Agent  
            webClient.Headers.Add("user-agent", "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36")
            data = webClient.DownloadData(address)
            contentTypeHeader = webClient.ResponseHeaders(HttpResponseHeader.ContentType)
        End Using
 
        Dim reCharset As New Regex("charset=""?([0-9a-zA-Z-]+)""?", RegexOptions.IgnoreCase Or RegexOptions.CultureInvariant)
 
        Dim responseEncoding As Encoding = Nothing
        Dim charset As String = Nothing
 
        If contentTypeHeader IsNot Nothing Then
            Dim m As Match = reCharset.Match(contentTypeHeader)
            If m.Success Then
                charset = m.Groups(1).Value
                Debug.WriteLine(Convert.ToString("DownloadString. Encoding from ContentType header=") & charset)
            End If
        End If
        If charset Is Nothing Then
            ' Заголовок Content-Type отсуствует или не содержит имя кодировки
            ' Ищем тег <meta http-equiv="Content-Type" content="text/html; charset=NAME">
            '     или тег <meta charset="utf-8">
            Dim begin As String = Encoding.ASCII.GetString(data, 0, Math.Min(data.Length, 2048))
            Dim pos As Integer = 0
            While True
                Dim start As Integer = begin.IndexOf("<meta", pos)
                If start = -1 Then
                    Exit While
                End If
                Dim [end] As Integer = begin.IndexOf(">", start + 5)
                If [end] = -1 Then
                    Exit While
                End If
 
                Dim m As Match = reCharset.Match(begin, start, [end] - start)
                If m.Success Then
                    charset = m.Groups(1).Value
                    Debug.WriteLine(Convert.ToString("DownloadString. Encoding from meta=") & charset)
                    Exit While
                End If
 
                pos = [end] + 1
            End While
        End If
        '   Устанавливаем пакет UDE.Charp и снимаем коментарий
        If charset Is Nothing Then
            '   Кодировка не указана ни в заголовке ни в мета-теге
            '   Пытаемся угадать!
            Dim d As New Ude.CharsetDetector()
            d.Feed(data, 0, data.Length)
            d.DataEnd()
            If d.Confidence > 0.8F Then
                charset = d.Charset
            End If
        End If
 
        If charset IsNot Nothing Then
            Try
                responseEncoding = Encoding.GetEncoding(charset)
            Catch generatedExceptionName As ArgumentException
            End Try
        End If
 
        responseEncoding = If(responseEncoding, defaultEncoding)
        Return responseEncoding.GetString(data)
    End Function

        Dim htmlsrc As String = ""
        Using wc As New WebClient()
            'WebClient.Headers.Add("user-agent", "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36")
            wc.Encoding = Encoding.UTF8
            htmlsrc = wc.DownloadString(url)
        End Using
        TextBox1.Text = htmlsrc

            wc.Headers.Add("user-agent", "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36")

Dim htmlsrc As String
Using http As New HttpClient
    http.DefaultRequestHeaders.Add("User-Agent", "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36")
    'htmlsrc = http.GetStringAsync("http://55med.ru/interest/10470/index.html").Result
    htmlsrc = http.GetStringAsync("http://intellect-video.com/9563/videosemka-korporativnogo-novogodnego-prazdnika/").Result
End Using

        Try            
                '   В html весь код проверяемой страницы               
                html = DownloadString(DataGridView1.Item(0, CellStroka).Value, System.Text.Encoding.Default)
            Catch ex As Exception
                DataGridView1.Item(1, CellStroka).Value = "ERROR Load Page"
                GoTo load1
            End Try

        Dim CellStroka As String = ComboBox1.Text
        Using http As New HttpClient
            http.DefaultRequestHeaders.Add("User-Agent", "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36")
            TextBox1.Text = http.GetStringAsync(CellStroka).Result
        End Using

Dim cookies As New CookieContainer()
cookies.Add(New Uri("http://blogfiscal.ru"), New Cookie("beget", "begetok", "/") With { .Expires = DateTime.Now.AddDays(1000) })
Dim html As String = DownloadString("http://blogfiscal.ru/?p=12736", Encoding.UTF8, cookies)