INETコントロールでテキスト形式で取得するには (ID:101906)

名前

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

本文 参考にやってみたのですが、ファイルから読み出してテキストに変換 する事は出来たのですが、一旦ファイルに保存せずに直接デコードした テキストにする事が出来ません。 Dim STRURL As String ' 取得URL Dim bytHtml() As Byte STRURL = "http://jp.msn.com/" 'ファイルをバイナリモードで読み込み bytHtml() = Inet1.OpenURL(STRURL, icByteArray) Dim objStream Set objStream = CreateObject("ADODB.Stream") objStream.Open objStream.Charset = "utf-8" objStream.WriteText bytHtml() Text1.Text = objStream.ReadText() objStream.Close テキストボックスには何も書き出されません。 はっきり言って基本的に理解できていませんが、上のコードを何処を 直せば上手くいくでしょうか