Sub Procedure()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://aaaaa.ru/bbbbb/"
    
    Dim fs As new Scripting.FileSystemObject
    Dim ts As Scripting.TextStream    
    Set ts = fs.CreateTextFile("C:\Users\Acer\Desktop\Новый текстовый документ.txt", True)
    ts.Write IE.document.getElementsByClassName("block")(0).outerHTML
    ts.Close
End Sub