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