Macro to Open webpage, then save webpage as txt file.

Hi,

I have the following code which opens a webpage from Excel and then waits until it finishes loading and that is how far I have got...

Sub IE_saveastext()
    Dim ie As InternetExplorer
   
    Set ie = New InternetExplorer
     
    ie.Navigate "http://www.google.com" 'google as an example
    ie.Visible = True
     
     ' Loop until ie page is fully loaded
    Do Until ie.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' code to save webpage as text file here
    
    ie.Quit

    Set ie = Nothing
End Sub

The next stage is that I am wanting it to save the webpage as a text file:
(From IE window (File->Save As->......Save As Type-> Text File *.txt) with a file name which is located in say cell A1 in the workbook.

I would just import it into Excel and do it that way however there is quite a lot of data.

Is this possible?

I have attached an example txt file of what I am looking for if it was done for google.com.