Option Explicit
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

'Загрузка интернет-страницы
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile( 0 , URL, LocalFilename,  0 ,  0 )
    If lngRetVal =  0  Then DownloadFile = True
End Function

Sub TakeHtml(strWEB As String)
    Dim i As Long
    Dim strHtml As String
    Dim Massiv() As String
    Dim strPut As String
    
    strPut = ThisWorkbook.Path & "\" & "Help.htm"
    'сохранение веб-страницы на локальном компьютере
    DownloadFile strWEB, strPut

    'перенос данных из сохраненного файла в переменную string
    Open strPut For Input As # 1 
    Do Until EOF( 1 )
        DoEvents
        i = i +  1 
        ReDim Preserve Massiv( 1  To i)
        Line Input # 1 , Massiv(i)
    Loop
    Close # 1 
    Kill strPut
    strHtml = Join(Massiv(), vbCrLf)
     MsgBox strHtml
End Sub

Sub LoadURL(strWEB)
    Dim ieApp As Object
    Dim strHtml As String
    
    'Create new IE instance
    Set ieApp = CreateObject("InternetExplorer.Application")
    'Go to url
    ieApp.Visible = False
    ieApp.navigate strWEB
    'Wait for page to load
    Do Until ieApp.readyState =  4 
        DoEvents
    Loop
    'HTML to string
    strHtml = ieApp.document.body.outerhtml
    
    MsgBox strHtml
    ieApp.Quit
    Set ieApp = Nothing
End Sub
Sub dgsghd()
     LoadURL ("http://www.google.ru/")
     TakeHtml ("http://www.google.ru/")
End Sub