请教tg123(T.G.)帮我看看！！

Private Sub Inet1_StateChanged(ByVal State As Integer)
    ' Retrieve server response using the GetChunk
    ' method when State = 12. This example assumes the
    ' data is text.
    Select Case State
    ' ... Other cases not shown.
    Case icResponseReceived ' 12
    MsgBox "f"
    Dim vtData As Variant ' Data variable.
  
    vtData = Inet1.GetChunk(1024, icString)    MsgBox vtData
    End Select
End Sub
没错误，我试了一下
Inet1.OpenURL "www.163.com", 1
已经接到返回值
inet(SP4)