'需要添加Microsft Internet Transfer control 6.0部件
'程序例子======================================
'取消所有操作
Inet1.Cancel
'设定协议为 HTTP
Inet1.Protocol = icHTTP
'设定 URL 属性
Inet1.URL = "<a href="
http://www.baidu.com" target="_blank">
http://www.baidu.com</a>"
'将读取的 HTML 数据附给string1
string1 = " "
string1 = Inet1.OpenURL
MsgBox (string1)