RISOLTO!!

codice:
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")

WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", "", "REG_SZ"