Interfaz de programación Vbs
dim id, psw
Id=inputbox("Ingrese el número de cuenta:")
Psw=inputbox("Ingrese la contraseña:")
Si (len( id )=8 y psw="158381 "), luego
Msgbox "Inicio de sesión exitoso"
Otros
Msgbox "Inicio de sesión fallido"
Terminará si...