Hola Badboy:
A través del control de error puedes localizar lo que buscas.
Otra forma muy sencilla es la que te propongo: Inserta este código en el evento DESPUES DE ACTUALIZAR del campo text que quieres controlar que no se "cuelen" números:
Private Sub campotexto_AfterUpdate()
Dim I
For I = 1 To Len(Me!campotexto)
If Mid(Me!campotexto, I, I) < "a" Then
MsgBox "contiene números" ' o el mensaje que quieras
Me!campotexto.Undo
Exit For
End If
Next I
' y aquí le colocas lo que desee que haga
End Sub
Saludos
Juan Amorós