求助求助关于inet的使用

Private Sub TYC_Timer()
Dim b() As Byte
Dim a, c

 b = Inet1.OpenURL("http://rsh.qzone.     QQ  &i_login_uin=0&mode=4&style=12&version=6&needDelOpr=true&transparence=true&hideExtend=false&showcount=15&MORE_FEEDS_CGI=http%3A%2F%2Frsh.qzone., icByteArray)
  '把上行中的QQ换成自己的QQ号
  htm = Utf8ToUnicode(b)
  a = "</a>" '"<span class=""c_tx3"">：</span>"
c = "</div>"
Text1.Text = Split(Split(htm, a)(1), c)(0)
If Text1.Text <> zl Then
If Text1.Text = Text2.Text Then
sendbuf(0) = &H7F
ComPort.Output = sendbuf
'Sleep 3000
'ComPort.Output = sendbuf '发送开启指令
k = k + 1

ElseIf Text1.Text = Text3.Text Then
sendbuf(0) = &HBF
ComPort.Output = sendbuf
'Sleep 3000
'ComPort.Output = sendbuf '发送关闭指令

k = k + 1

End If

zl = Text1.Text
End If
End Sub
text1.text出来是乱码。。