Download and save an HTML page with the Internet Transfer control

' 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 argument

Function 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