Função Troca Acentuação

Boa tarde pessoal.

Criei uma função para trocar acentuação por letras sem acentos, porem não funca nem com bala.

function removeacento(str)
	removeacento = replace(str,"a","a")
	removeacento = replace(removeacento,"e","e")
	removeacento = replace(removeacento,"à","a")
	removeacento = replace(removeacento,"á","a")
	removeacento = replace(removeacento,"â","a")
	removeacento = replace(removeacento,"ã","a")
	removeacento = replace(removeacento,"ä","a")
	removeacento = replace(removeacento,"è","e")
	removeacento = replace(removeacento,"é","e")
	removeacento = replace(removeacento,"ê","e")
	removeacento = replace(removeacento,"ë","e")
	removeacento = replace(removeacento,"ì","i")
	removeacento = replace(removeacento,"í","i")
	removeacento = replace(removeacento,"î","i")
	removeacento = replace(removeacento,"ï","i")
	removeacento = replace(removeacento,"ò","o")
	removeacento = replace(removeacento,"ó","o")
	removeacento = replace(removeacento,"ô","o")
	removeacento = replace(removeacento,"õ","o")
	removeacento = replace(removeacento,"ö","o")
	removeacento = replace(removeacento,"ù","u")
	removeacento = replace(removeacento,"ú","u")
	removeacento = replace(removeacento,"û","u")
	removeacento = replace(removeacento,"ü","u")
	removeacento = replace(removeacento,"À","A")
	removeacento = replace(removeacento,"Á","A")
	removeacento = replace(removeacento,"Â","A")
	removeacento = replace(removeacento,"Ã","A")
	removeacento = replace(removeacento,"Ä","A")
	removeacento = replace(removeacento,"È","E")
	removeacento = replace(removeacento,"É","E")
	removeacento = replace(removeacento,"Ê","E")
	removeacento = replace(removeacento,"Ë","E")
	removeacento = replace(removeacento,"Ì","I")
	removeacento = replace(removeacento,"Í","I")
	removeacento = replace(removeacento,"Î","I")
	removeacento = replace(removeacento,"Ò","O")
	removeacento = replace(removeacento,"Ó","O")
	removeacento = replace(removeacento,"Ô","O")
	removeacento = replace(removeacento,"Õ","O")
	removeacento = replace(removeacento,"Ö","O")
	removeacento = replace(removeacento,"Ù","U")
	removeacento = replace(removeacento,"Ú","U")
	removeacento = replace(removeacento,"Û","U")
	removeacento = replace(removeacento,"Ü","U")
	removeacento = replace(removeacento,"ç","c")
	removeacento = replace(removeacento,"Ç","C")
	removeacento = replace(removeacento,"ñ","n")
	removeacento = replace(removeacento,"Ñ","N")

	'removeacento = removeacento

end function arquivo = removeacento(NomeCampo)

Alguém tem alguma dica