Consulta funcion GoToControl

Hola,
Lo que quiero hacer es que si el projecto elegido es invalido, el
cursor se quede en ese campo y no avance.
Pero no me funciona. :(
Gracias

Private Sub Projecto_AfterUpdate()
Dim First As Variant
First = DLookup("[PrjName]", "dbo_OPRJ", "[PrjCode] = Forms!
Registro!Projecto")
If Not IsNull(First) Then
Forms!Registro!Text94 = First
Else
MsgBox "Projecto NO VALIDO"
DoCmd.GoToControl ("Projecto")
End If
End Sub