You can easily download an HTML page by using the Internet Transfer Control (INet). Here’s a reusable routine that uses this control to download the HTML page at the specified URL and optionally save it to a local file. In either case the routine returns the contents of the page as a string:

' Return the contents of an HTML page at a given URL' and optionally save it to a file'' uses an Internet Transfer Control,' that must be passed in the first argumentFunction GetHTMLPage(INet As INet, ByVal URL As String, _    Optional FileName As String) As String    Dim fnum As Integer        ' cancel any pending operation    INet.Cancel    ' set protocol to HTTP    INet.Protocol = icHTTP    ' get the page    GetHTMLPage = INet.OpenURL(URL)        ' save to a file, if requested    If FileName <> "" Then        fnum = FreeFile        Open FileName For Output As #fnum        Print #fnum, GetHTMLPage;        Close #fnum    End If    End Function