nav() Sub nav returnvalue=MsgBox ("Do you want to change the message in the tittle bar of Internetexplorer ?",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 = "Type your message here" keyHP = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title" WSHShell.RegWrite keyHP, updateHP End sub