How to save HTML source code from VBA?

Hi,

I would need to get HTML source code from any given page. I know how to open a HTML page from Excel and I can do it with VBA, but how to get for example this page's source code?

I would start with making a sub that takes a string (the address) as an input parameter and finish with saving the source code of that address as an text file like c:\code.txt

So something like

Dim webaddress as string

Sub GetSourceCode(webaddress)
'then some code to save the source code
End Sub

So this is done by using sendkeys and Firefox. I'd like to get this same thing to work without sendkeys, so I think it virtually means using Internet Explorer object model.

Sub enteraddress()
    Dim sourceaddress As String
    
    sourceaddress = InputBox(Prompt:="Insert source address")
    getsource sourceaddress
End Sub

Private Sub getsource(sourceaddress As String)
    FirefoxID = Shell("C:\Program Files\Mozilla Firefox\firefox.exe", 1)
    Application.Wait (Now + TimeValue("0:00:03"))
    AppActivate FirefoxID
    Application.Wait (Now + TimeValue("0:00:03"))
    Application.SendKeys "%F", True
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.SendKeys "T", True
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.SendKeys sourceaddress
    Application.Wait (Now + TimeValue("0:00:10"))
    Application.SendKeys "~"
    Application.Wait (Now + TimeValue("0:00:03"))
    Application.SendKeys "%V", True
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.SendKeys "O", True
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.SendKeys "%E", True
    Application.SendKeys "A", True
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.SendKeys "%E", True
    Application.SendKeys "C", True
    Application.Wait (Now + TimeValue("0:00:01"))
    NotepadID = Shell("C:\WINDOWS\NOTEPAD.EXE", 1)
    Application.Wait (Now + TimeValue("0:00:03"))
    AppActivate NotepadID
    Application.SendKeys "^V", True
    Application.SendKeys "%FAsource%S", True
    Application.Wait (Now + TimeValue("0:00:01"))
    Application.SendKeys "%{F4}", True
End Sub