WARNING! YOU'RE IN DANGER!
YOUR COMPUTER IS INFECTED WITH SPYWARE!

ALL YOU DO WITH COMPUTER IS STORED FOREVER IN YOUR HARD DISK. WHEN YOU VISIT SITES, SEND EMAILS... ALL YOUR ACTIONS ARE LOGGED. AND IT IS IMPOISIBLE TO REMOVE THEM WITH STANDARD TOOLS. YOUR DATA IS STILL AVAILABLE FOR FORENSICS. AND IN SOME CASES FOR YOUR BOSS, YOUR FRIIENDS, YOUR WIFE, YOUR CHILDREN. Every site you or somebody or even something, like spyware, opened in your browsers with all the images, and all the downloaded and maybe later removed movies or mp3 songs - ARE STILL THERE and could break your life!

SECURE YOURSELF RIGHT NOW!

REMOVE ALL SPYWARE FROM YOUR PC!

Public Sub Definicion()



Dim respuestauno, respuestados As String

Const respuestauno = _
(InputBox("Escribe aquí tu respuesta"))

If respuestauno Like SI Or SI Or SI Or SI Then

MsgBox ("Respuesta correcta. Cambiando los nombres, si todos los edificios son de piedra y toda la piedra es rompible, entonces todos los edificios son rompibles")
GoTo 16
Else: MsgBox ("Respuesta incorrecta.")

End If

'-----------

Const respuestados = (InputBox("Si compro por 8 y vendo por 10, y más tarde vendo por 12 y compro por 14, ¿cuánto he ganado?"))

If respuestados = 4 Then

MsgBox ("Respuesta correcta. ¡Bien hecho!")
Close
Else:
If respuestados <> 4 Then
MsgBox ("Respuesta incorrecta.")
End If

'-----------

End Sub



Public Sub CommandButton1_Click()

GoSub Definicion