匿名質問者回答ポイント なしウォッチ

VBAでUTF-8形式のテキストを読み込むと、文字化けしてしまいました。

どのようにすれば正常に扱えるでしょうか。

具体的には、winHTTPライブラリを使用し、
http://store.apple.com/jp/variationSelection/FD532J/A?option.dimensionCapacity=16gb&option.dimensionColor=white_silver
このURLにリクエストを送ったところ、取得したResponseが文字化けしてしまいました。
おそらく文字形式UTF-8の、JSONデータだと思うのですが、どのようにすれば扱えるでしょうか。
ネット上のサンプルでこのような変換関数を作成してみましたが、上手くいきませんでした。
なにが悪いのでしょうか。

Function CONVERT_CHARSET(strHTML As String) As String

Dim SRC As Object
Dim DST As Object

Const adTypeText = 2

Set SRC = CreateObject("ADODB.Stream")
With SRC
.Open
.Charset = "UTF-8"
.Type = adTypeText
.writetext strHTML
.Position = 0
End With

Set DST = CreateObject("ADODB.Stream")
With DST
.Open
.Charset = "Unicode"
.Type = adTypeText
End With
SRC.CopyTo DST
DST.Position = 0


Debug.Print DST.readtext
CONVERT_CHARSET = DST.readtext()

SRC.Close
DST.Close
Set SRC = Nothing
Set DST = Nothing

End Function