AccessVBAで、ホームページの内容を取得すると文字化けする

とあるサイトで下記のようなVBAソースを拾って、
実行してみたところ、日本語部分が文字化けしてしまいました。
--- ここから
Dim Http
Dim Buf As String
'GET
Set Http = CreateObject("MSXML2.XMLHTTP")
Http.Open "GET", "http://www.yahoo.co.jp", False
Http.send
Buf = StrConv(Http.ResponseBody, vbUnicode)
--- ここまで
これでBufにサイトのHTMLが格納されますが、
日本語部分が文字化けしてしまいます。
どうにかして回避できないものでしょうか。

No.1 ベストアンサー 回答者： himajin100000 回答日時： 2007/05/20 15:26

Buf = Http.ResponseText

で文字化けしないと思う。

#ただ理由は理解していない(^^;;
#Msgbox(Buf)すれば文字化けしていないことが確認できるかと

#識者待ち