EUC_JPデータをSHIFT-JISに変換するには?

---

inetコントロールを利用して取得したHTMLデータの中から、日本語の文字列を取得するプログラムをVB6にて作成しています。
取得したHTMLファイルがEUC_JP形式のためこれをSHIST_JIS形式に変換したいのですが、どうしても方法を見つけ出すことが出来ません。
VBプログラムにおいてEUC_JPをSHIFT_JISに変換する方法をご存知の方がおられましたらご教示ください。
よろしくお願いいたします。

編集 削除

---

VB6なら、ADO(2.5以上)を参照設定して、こんな感じです。
(参照設定せず、レイトバインドで処理しても良いですけど)

    'Streamオブジェクトの作成
    Set Stm = New ADODB.Stream
    Stm.Open

    'バイナリモードで書き込み
    Stm.Type = adTypeBinary
    Stm.Write B 'バイト配列

    'モード変更のため、先頭に移動
    Stm.Position = 0
    
    'モードをEUCテキストにして読み込み
    Stm.Type = adTypeText
    Stm.Charset = "euc-jp"
    S = Stm.ReadText(adReadAll)

    'Streamオブジェクトの解放
    Stm.Close
    Set Stm = Nothing

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。