SoloCodigo

La question es la siguiente:

Tenemos un form donde tenemos que responder a una pregunta y tenemos 4 posibles soluciones cada una con un número de 2 dígitos que la identifica ( 11,12,13 y 14). Tenemos un txtbox donde debemos introducir la respuesta (txtRespuesta).

Problema si por ejemplo en lugar de responder una de las opciones posibles introducimos el número 41, sucede que se borra y aparece un paréntesis, es decir escribe el caracter que le corresponde al nº 41. Hay alguna solución sencilla para que esto no ocurra?

Texto del sub en question:

Private Sub txtRespuesta_KeyPress(Tecla As Integer)
    lblValidar.Visible = True
    cmdEnter.Visible = True
    If Tecla = 8 Then   'Tecla BackSpace.
    Else
    If Tecla = 13 And Not(txtRespuesta.Text = "") Then             Tecla = txtRespuesta.Text
            If (Tecla < 15) And (Tecla > 10) Then
                tmrComprobar.Interval = 0
                Tecla = txtRespuesta.Text
                txtRespuesta.Text = ""
                Respuesta Tecla
            Else
                txtRespuesta.Text = ""
                lblValidar.Visible = False
                cmdEnter.Visible = False
            End If
        Else
            If (Tecla < 49) Or (Tecla > 52) Then 'Si es un número del 1 al 4...
                Beep
                Tecla = 0
            End If
        End If
    End If
End Sub

Hola:
otra posibilidad seria que programes en el LostFocus, seria mas o menos asi:

Private Sub txtRespuesta_LostFocus()
If Val(txtRespuesta.Text) < 11 Or Val(txtRespuesta.Text) > 14 Then
    MsgBox "Solo se permite el intervalo [11 - 14]"
    txtRespuesta.Text = ""
    txtRespuesta.SetFocus
End If
End Sub


Saludos;