Function ТРАНСЛИТ$(Текст$)    ' транслитерация русских букв в английские (Alt+ScrollLock в Punto Switcher)
    Dim i%
    Dim RUS: RUS = _
        Split("а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я А Б В Г Д Е Ё Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я")
    Dim Eng: Eng = _
        Split("a b v g d e jo zh z i j k l m n o p r s t u f kh ts ch sh sch '' y ' e yu ya A B V G D E JO ZH Z I J K L M N O P R S T U F KH TS CH SH SCH '' Y ' E YU YA")
    For i = LBound(Eng) To UBound(Eng)
        Текст = Replace(Текст, Eng(i), RUS(i), 1)
    Next i
    ТРАНСЛИТ = Текст
End Function