VBAでEUC-JPのHTMLソースを取得しShift-JISにしたい -こんにちは。現在- PowerPoint（パワーポイント） | 教えて!goo

こんにちは。 現在 １．Msxmlで任意のHTMLソースを取得 （ただこれがEUCで、エクセル上だと文字化けする） ２．それをShift-JISにエンコードして、のちのちExcel表にする） というコードをExcelVBAで描いています。 ソースの取得はできるのですが、 EUCのサイトのため漢字が文字化けします。 エンコードしようと思ってもできません。 ADODB.Streamというものを使おうとしています。 宜しくお願い致します。 Dim xmlHttp Set xmlHttp = CreateObject("Msxml2.XMLHTTP") xmlHttp.Open "GET", url, False xmlHttp.send Set in_strm = CreateObject("ADODB.Stream") Set out_strm = CreateObject("ADODB.St