Public Function GetHTMLPage(ByVal URL As String) As String
Dim sResult As String
Dim oHttp As HttpWebRequest
Dim objResponse As WebResponse
Dim objRequest As WebRequest
 
Try
objRequest = System.Net.HttpWebRequest.Create(URL)
 
objRequest.Method = "GET"
objRequest.Timeout = 120000
objResponse = objRequest.GetResponse
 
 
Dim sr As System.IO.StreamReader = _
New System.IO.StreamReader( _
objResponse.GetResponseStream(), _
System.Text.Encoding.UTF7)
 
sResult = sr.ReadToEnd()
 
sr.Close()
objResponse.Close()
 
Return sResult
 
Catch ex As System.Exception
MsgBox(ex.Message)
 
oHttp = Nothing
objResponse = Nothing
objRequest = Nothing
End Try
End Function