Hola a todos. Estoy trabajando en un de/codificador que incluye la opción de definir tu propio algoritmo de cifrado. El código que llevo por ahora es el siguiente (No llevo nada programando). El subprograma CommandButton1_Click() intenta llamar al etiquetado como Definicion, pero me salta un problema con la etiqueta. ¿Cómo lo soluciono?
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
End Sub
Mostrar Mensajes