Perguntas Validar antes de sair do campo

Boa tarde!

Preciso de uma ajuda para impedir que o sistema passe para o próximo campo, sem validar o problema de caracteres ESPECIAIS...sei que meu código está com erro, quem puder auxiliar, fico muito grato!
E por favor, onde posso fazer a chamada para validar: gatilho ou valida usuário?

#Include "Protheus.ch"


User Function zLimpaEsp()
Local aArea := GetArea()
//Local cCampo := ReadVar()
//Local cConteudo := &(cCampo)
//Local nTamOrig := Len(cConteudo)
Local cCarEsp := {}
Local nAtual := 0
Default lEndereco := .T.

AADD(cCarEsp,{"!", "Exclamacao"})
AADD(cCarEsp,{"@", "Arroba"})
AADD(cCarEsp,{"#", "Sustenido"})
AADD(cCarEsp,{"$", "Cifrao"})
AADD(cCarEsp,{"%", "Porcentagem"})
AADD(cCarEsp,{"*", "Asterisco"})
AADD(cCarEsp,{"/", "Barra"})
AADD(cCarEsp,{"(", "Parentese"})
AADD(cCarEsp,{")", "Parentese"})
AADD(cCarEsp,{"+", "Mais"})
AADD(cCarEsp,{"¨", ""})
AADD(cCarEsp,{"=", "Igual"})
AADD(cCarEsp,{"~", "Til"})
AADD(cCarEsp,{"^", "Circunflexo"})
AADD(cCarEsp,{"]", "Chave"})
AADD(cCarEsp,{"[", "Chave"})
AADD(cCarEsp,{"{", "Colchete"})
AADD(cCarEsp,{"}", "Colchete"})
AADD(cCarEsp,{";", "Ponto e Virgula"})
AADD(cCarEsp,{":", "Dois Pontos"})
AADD(cCarEsp,{">", "Maior"})
AADD(cCarEsp,{"<", "Menor"})
AADD(cCarEsp,{"?", "Interrogacao"})
AADD(cCarEsp,{"_", "Underline"})
AADD(cCarEsp,{",", "Virgula"})
AADD(cCarEsp,{" ", "Espaco"})
AADD(cCarEsp,{"'", "Aspas"})


For nAtual := 1 To Len(cCarEsp)

If At(cCarEsp[1], AllTrim(cCarEsp)) <> 0
MsgStop("Nao e Permitido o Caracter " + aCarc_Esp[1] + " (" + aCarc_Esp[2]+ ") na Inclusao do Item.")
lEndereco := .F.
Return (lEndereco)
EndIf

Next


RestArea(aArea)
Return (lEndereco)