Public Sub test01()
Dim sPath$, s$
    s = GetHTMLPageByURL2("http://www.sport-imp.ru/?categoryID=2/")
    'DoEvents
'Назначаенм куда ...
    sPath = "d:\Temp\TempTest01.html"
'Запись
    If Len(s) > 2 Then TextOutputAsTXT sPath, s
End Sub

Public Function GetHTMLPageByURL2(URL$) As String
Const READYSTATE_COMPLETE = 4
Dim IE As Object
Dim html As Object
Dim htmlBody As Variant


Set IE = CreateObject("InternetExplorer.Application")
    'IE.Top = 0
    'IE.Left = 0
    'IE.Width = 800
    'IE.Height = 600
    
    'IE.Visible = True
    'IE.Visible = False
    IE.navigate URL$


'Wait until IE is done loading page
    Do While IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

'HTML document returned
    Set html = IE.Document
    GetHTMLPageByURL2 = html.DocumentElement.innerHTML

    IE.Visible = True
    IE.Quit
    Set IE = Nothing

End Function


Public Sub TextOutputAsTXT(sTXTPath$, sText$)
'Запись в текстовый файл по пути sTXTPath - текста переданного в sText
'Внимание: Если Файл уже существует - переписывается полностью и без вопросов.
Dim fso As Object
Dim ts As Object
'--------------------------------------------------------------------------
On Error GoTo TextOutputAsTXT_Err
    Set fso = CreateObject("Scripting.FileSystemObject")
    
'Третий параметр <Unicode>. Если он True, файл в юникоде, если False , то в ASCII. По умолчанию стоит False.
    Set ts = fso.CreateTextFile(sTXTPath, True, False)
    ts.Write sText
    ts.Close
TextOutputAsTXT_Bye:
    On Error Resume Next
    Set ts = Nothing: Set fso = Nothing
    Exit Sub

TextOutputAsTXT_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "в процедуре: TextOutputAsTXT", vbCritical, "Error!"
    Resume TextOutputAsTXT_Bye
End Sub