Perguntas duvida - validação de caracteres especiais

#INCLUDE "rwmake.ch"
#INCLUDE "PROTHEUS.CH"

User Function CARCESP(cCodPrd)

//Variavel Local de Controle
Local aCarc_Esp := {} 

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

//Executa o Laco ate o Tamanho Total do Array
For i:= 1 to Len(aCarc_Esp)
     //Verifica se Algum dos Caracteres Especiais foi Digitado
     If At(aCarc_Esp[1], AllTrim(cCodPrd)) <> 0
          //Se Sim Emite uma Mensagem
          MsgStop("Nao e Permitido o Caracter " + aCarc_Esp[1] + " (" + aCarc_Esp[2]+ ") na Inclusao do Item.")
          //Nao Permite a Saida do Campo, Ate Retirar o Caracter Especial
          Return .F.
     EndIf
Next                     

Return .T.