Function GetHTML(strURL)
    on error resume next
      Dim objXMLHTTP, strReturn
      Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
      objXMLHTTP.Open "GET", strURL, False
      objXMLHTTP.Send    
      strReturn = objXMLHTTP.responseText
      Set objXMLHTTP = Nothing
      GetHTML = strReturn
End Function