[Resolvido]Instrução Tirar acento com problema

Pessoal, utilizo a instrução a seguir, retirada deste fórum, para que os campos de meu formulário fiquem sem acento e cedilha.
Ocorre que somente o campo "Local", dentre os mais de 50 campos apresenta problema no momento de inserir o código, conforme a mensagem de erro no fim desta postagem.
Alguém saberia qual o problema, tendo em vista que utilizo exatamente a mesma instrução e nenhum outro campo apresentou problema?

'Por JPaulo
Public Function DLTiraAcentos_GetCorrectChar(ByVal strChar As String) As String
   Dim LetrasComAcentos As String
   Dim LetrasSemAcentos As String
   LetrasComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
   LetrasSemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
   Dim i As Integer
   For i = 1 To Len(LetrasComAcentos)
       If strChar = Mid$(LetrasComAcentos, i, 1) Then
           DLTiraAcentos_GetCorrectChar = Mid$(LetrasSemAcentos, i, 1)
           Exit Function
       End If


   Next
       DLTiraAcentos_GetCorrectChar = strChar
End Function
DLTiraAcentos_GetCorrectChar = strChar End Function" />

Boa tarde,

Experimente tirar o .value dos dois lados.

Abraço.

Bom, espero nao estar dizendo besteira mas, acaso o erro seria devido ao ausencia da definicao do local do campo?

me!local

Obrigado pela ajuda, mas infelizmente já havia tentado ambas as possibilidades e nenhuma funcionou.
A primeira não informa o erro, porém, não tira os acentos.
A segunda informa o erro igualmente.

Boa noite Veríssimo,

Já postei neste forum também esta função.
Segue sistema pra vc testar.

Att,

E ai Veríssimo,
Funcionou?

Troquei o campo na tabela, mudei seu nome e o problema persistiu.

Diante disso, inseri o código a seguir no evento Ao sair do campo e funcionou:

On Error Resume Next
Me.Local = Replace(Replace(Replace(Me.Local, "á", "a"), "à", "a"), "ã", "a")
Me.Local = Replace(Replace(Me.Local, "é", "e"), "ê", "e")
Me.Local = Replace(Me.Local, "í", "i")
Me.Local = Replace(Replace(Replace(Me.Local, "ó", "o"), "ô", "o"), "õ", "o")
Me.Local = Replace(Me.Local, "ú", "u")

Agradeço a todos que se propuseram a ajudar mais uma vez.

Bom dia,

Só para deixar de contribuição que as vogais i, e e u também permitem a utilização de crase e circunflexo, mesmo que não existam palavras no português que utilize ì por exemplo, nada impede que o usuário insira esses caracteres lá, então é interessante considerar isso.

îíì
ûùú
êèé

Abraço.

Obrigado pela dica!!!!