Inet로 인터넷소스 가져오기

Private Function OpenURLWithIE(ByVal URL As String) As String
On Error Resume Next
Dim Total As String, Chunks As String
Inet1.URL = URL
Inet1.Execute inputhdrs:="User-agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.0.04506)" & vbCrLf
Do While Inet1.StillExecuting
DoEvents
Loop
Do
Chunks = Inet1.GetChunk(1024, icString)
Total = Total & Chunks
Loop While Len(Chunks)
OpenURLWithIE = Total
End Function