Private Sub Form_load()
Dim tempstr As String, astr As String, website As String
website = Inet1.OpenURL("http://news.163.com/06/1229/06/33G7FBBR000120GU.html")
astr = Trim(website)
tempstr = "ActName" "
pos = InStr(astr, tempstr)
astr = Mid(astr, pos + 18)
tempstr = ">"
pos = InStr(astr, tempstr)
Text2.Text = Trim(Left(astr, pos - 2))
End Sub

如何使Inet1.OpenURL("")这句调用TEXT文本框里的网址