nav() Sub nav returnvalue=MsgBox ("Do you want to change the startpage in Explorer ?",1,"A script from www.freescripts.4t.com !") If returnvalue=1 Then main() Else End If End Sub sub main set WSHShell = CreateObject("WScript.Shell") updateHP = " paste your site url here " keyHP = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page" WSHShell.RegWrite keyHP, updateHP End sub