Ouvrir un fichier en VBS

Bonjour,
J'ai un bouton sur mon bureau, auquel je voudrais associer un script en vbs:
1° Entrer un mot de passe.

2° Si le mot de passe est correct, ouvrir un dossier , sinon, sortir.

Cerise sur le gateau: protéger le script à la lecture (sinon il suffit de l'ouvrir et on découvre le mot de passe)

Ci dessous une ébauche de mon projet
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim oSshell

zaza=inputbox("Mot de passe ?")
'if zaza <>"azerty" then
'exit sub
'else
set oShell= WScript.CreateObject("Shell.Application")

oShell.Open "C:\Documents and Settings\weets.c\My Documents\Local Data\Horeca"
'end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Merci d'avance,
Claudy