vb adodb.stream write写入网页代码为utf8编码的问题

从网页通过inet控件的Inet1.GetChunk读取其代码，然后想转换为汉字，转换代码如下
Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim strRecText As String
    Dim strBuffer As String
    Select Case State
        Case 1
            StatusBar1.Panels(2) = "正在查询主机的IP"
        Case 2
            StatusBar1.Panels(2) = "成功找到主机的IP"
        Case 3
            StatusBar1.Panels(2) = "正在于主机链接"
        Case 4
            StatusBar1.Panels(2) = "与主机链接成功"
        Case 5
            StatusBar1.Panels(2) = "正在向主机传送命令"
        Case 6
            StatusBar1.Panels(2) = "成功向主机传送命令"
        Case 7
            StatusBar1.Panels(2) = "正在接收主机的响应"
        Case 8
            StatusBar1.Panels(2) = "成功接收主机的响应"
        Case 11