DIM MINOMBRE
DIM NOMBRE
MINOMBRE="contraseñadeusuario"
MSGBOX("Logeate")
NOMBRE=INPUTBOX("Por favor ingresa la contraseña de usuario")
IF NOMBRE=MINOMBRE THEN
MSGBOX("Bienvenido!!")
ELSE
MSGBOX("Contraseña incorrecta!!")
END IF