Crear un archivo vbs que solicite contraseña

[bdjmarcelo]

Hola amigos.

Por favor su ayuda para poder crear un archivo ( vbs ) que al ejecutar pida contraseña y si la ingresan mal se cierre y si está bien se ejecute un programa especifico.

Tengo el siguiente código pero el problema es que cuando ingresar una clave errónea no hace nada y me gustaría que aparezca una ventana con un mensaje diciendo código errado

clave=jhcorreo
msgbox("Bloqueo Correo Outlook")
clave=inputbox("Escribe el password")
if clave=jhcorreo then
msgbox("welcome")
else
x=msgbox("password correcto!!")
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "OUTLOOK.EXE"
end if

Gracias por su ayuda y correcciones.