为什么我这段程序一运行CUP就占100%

[伟大de虫子]

是一段读取网页源代码然后进行显示的代码,如下:

Function GetHtml(URL As String) As String
Dim html_content As String
'设定协议为HTTP
Inet1.Protocol = icHTTP
'设定URL属性
Inet1.URL = URL
'将读取的HTML数据放进一个string
html_content = Inet1.OpenURL(, icString)
GetHtml = GBToBig(html_content)
html_content = Empty

End Function


上面代码一运行CPU就会占用100%(不是第次,但也是95%的机会都是这样)
请问有没有办法改善