Function KeyTelUni(txt As String) As String
Dim sTel, sUni, i As Long
sTel = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
sUni = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), ChrW(7849), ChrW(7851), ChrW(7853), "é", "è", ChrW(7867), ChrW(7869), ChrW(7865), ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), ChrW(7899), ChrW(7901), ChrW(7903), ChrW(7905), ChrW(7907), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), ChrW(7921), "á", "à", ChrW(7843), "ã", ChrW(7841), ChrW(259), "â", ChrW(273), "é", "è", ChrW(7867), ChrW(7869), ChrW(7865), "ê", "í", "ì", ChrW(7881), ChrW(297), ChrW(7883), "ó", "ò", ChrW(7887), "õ", ChrW(7885), "ô", ChrW(417), "ú", "ù", ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), "ý", ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
For i = 0 To UBound(sTel)
txt = Replace(txt, LCase(sTel(i)), sUni(i))
Next i
KeyTelUni = txt
End Function