Problema: Etiqueta no definida

[Fuen]

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?

Código [Seleccionar] Expandir

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

[aaronduran2]

Llama al procedimiento sin el GoSub, y después de eso, añade el End Sub que te falta.

Código (vb) [Seleccionar] Expandir

Public Sub CommandButton1_Click()
    Definicion
End Sub

[Fuen]

Epa xD Error mio lo del decodificador, pues con éste no tengo problemas y el que he posteado sólo es un programa de acertijos para ir adaptándome.

Funciona de maravilla, gracias.

[Psyke1]

Código (vb) [Seleccionar] Expandir

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

Eso funciona?

DoEvents!