Função não funciona

Bom dia pessoal, tenho um funçãozinha aqui de retirar acentos que sempre uso, e sempre funcionou, porem não sei o motivo agora, ela deu de em algumas paginas não fazer o que deveria, que é retirar os acentos, não da erro na pagina, mas também não funciona.

Function TiraAcento(ByVal Palavra)
cacento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~ºª"
sacento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
texto = ""
If Palavra <> "" Then
For x = 1 To Len(Palavra)
letra = Mid(Palavra, x, 1)
pos_acento = InStr(cacento, letra)
If pos_acento > 0 Then
letra = Mid(sacento, pos_acento, 1)
End If
texto = texto & letra
Next
TiraAcento = texto
End If
End Function

Como estou usando ela:

Link = TiraAcento(Rs("nome_fantasia"))
response.Write Link

Um caso de teste o no banco de dados vem a informação assim:

Armários Beagá

Após usar a função vem assim

Armários Beagá

Ou seja deveria vir assim

Armarios Beaga

Alguém sabe o que pode estar acontecendo?