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