Dim internet As New Net.WebClient

        Dim st As System.IO.Stream = internet.OpenRead("http://hogehoge.com/foobar.html")

        Dim sr As New System.IO.StreamReader(st, Encoding.GetEncoding("EUC-JP"))

        Dim source As String = sr.ReadToEnd()



        st.Close()

        internet.Dispose()



        tbSource.Text = source

このようなコードを書いたとします。なおURLを仮のものです。
ここでは文字コードが「EUC-JP」となっていますが、実際不確定のURLからhtmlファイルを読み込むときは文字コードがわかりません。
どのようにすれば正しい文字コードを読み込む前に判別できるのでしょうか？