Internetseite aufrufen und abspeichern

Sub URL_Load_and_Save()
const sURL ="www.kicker.de"
Dim appIE As Object
Dim sTxt as string
Set appIE = CreateObject("InternetExplorer.Application")
appIE.Navigate sURL
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.documentElement.outerHTML
'bis hierhin läufts einwandwandfrei. Die Daten "kommen an"
'WIE SPEICHER ICH JETZT DIE GANZE SEITE AB? WIE GEBE ICH DAS VERZEICHNIS VOR?
Set appIE = Nothing
Close
End Sub