VB.NETのWebbrowserで文字化けがあるときのその対処策

  Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

        Dim buf As Byte() = New Byte(WebBrowser1.DocumentStream.Length) {}
        WebBrowser1.DocumentStream.Read(buf, 0, CInt(WebBrowser1.DocumentStream.Length))

        Dim ec As System.Text.Encoding = _
            System.Text.Encoding.GetEncoding(WebBrowser1.Document.Encoding)

        Dim s As String = ec.GetString(buf)


        'Console.WriteLine(s)
       
    End Sub