Dim sBuffer As String
Dim oRequest As HttpWebRequest = HttpWebRequest.Create(sURL)
 
oRequest.Method = "GET"
oRequest.AllowAutoRedirect = True
oRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1;" & _
  "Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648;" & _
  ".NET CLR 3.5.21022; InfoPath.1)"
 
Dim oResponse As WebResponse = oRequest.GetResponse()
 
Dim oStream As New StreamReader(oResponse.GetResponseStream())
sBuffer = oStream.ReadToEnd()
oStream.Close()
 
oResponse.Close()
MsgBox(sBuffer)