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