[Resolvido] Tira acentos!

[Mago_Pc 0]

Esta função tira acentos que são digitados

function TiraAcento(StrAcento)for i = 1 to len(StrAcento)   Letra = mid(StrAcento, i, 1)  Select Case Letra   Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"   Letra = "A"   Case "é","É","ê","Ê","Ë","ë","È","è"   Letra = "E"   Case "í","Í","ï","Ï","Ì","ì"   Letra = "I"   Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"   Letra = "O"   Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"   Letra = "U"   Case "ç","Ç"   Letra = "C"   Case "ñ"   Letra = "N"  End Select  texto = texto & LetranextTiraAcento = textoend function

Espero que esse código ajude bastante, ele pode ser colocado para fazer uma busca, criar um login, etc...