Access - Por qué no me funciona el "SetFocus"

Private Sub TXT_CODIGO_AfterUpdate()

    If Len(TXT_CODIGO.Value) <> 13 Then

        RESPUESTA = MsgBox("El CODIGO debe tener 13 dígitos" + Chr(13) + "Sólo se permiten números, sin barras (/) y sin espacios", vbOKOnly, "VALOR DE CAMPO INCORRECTO")

        TXT_CODIGO.SetFocus

    End If

End Sub

Private Sub Form_Current()

TXT_CODIGO.InputMask = "#############;0;"

End Sub

Private Sub TXT_CODIGO_BeforeUpdate(Cancel As Integer)

If Len(TXT_CODIGO.Value) <> 13 Then

RESPUESTA = MsgBox("El CODIGO debe tener 13 dígitos" + Chr(13) + "Sólo se permiten números, sin barras (/) y sin espacios", vbOKOnly, "VALOR DE CAMPO INCORRECTO")

Cancel = True

Exit Sub

End If

End Sub

If Len(txt_codigo.Value) <> 13 Then

RESPUESTA = MsgBox("El CODIGO debe tener 13 dígitos" + Chr(13) + "Sólo se permiten números, sin barras (/) y sin espacios", vbOKOnly, "VALOR DE CAMPO INCORRECTO")

BtnSalir.SetFocus '(primero lo mando a mi boton salir)

txt_codigo.SetFocus '(e inmediatemente lo mando a la caja de texto)

End If