[AccessD] Cyrillic to English character translation

 Does anyone have a Cyrillic to English
 character translation VBA snippet I could
 please study ?
 
 I did some ASCII and EBCDIC translation
 some 25 years ago.
 
 However, Unicode is something I am new
 to and wonder how that would work.
 
 Here is what I am hopeing to convert to
 English.
 
 I am told this is not Russian, but American
 English displayed in Cyrillic.
 
 It should be a C# program, plus some snide
 comments.
 
 Any suggestions ?
 
 Thanks.
 
 ===================================================
                     Start
 ===================================================
 
ЭД
ДЖЮCT ФОP ФЮН И ДЭЧИДЭД TО CЭЭ HЬОУО ФЭУО ЛИНЭC ОФ ЧОДЭ И'Д HЬАВЭ TО
УОPИTЭ TО ЧОНВЭPT ЧPЁPИЛЛИЧ TО ЭНГЛИCHЬ АНД ВИЧЭ-ВЭPCА.
 
И'М PЭАЛЛЁ QЮИTЭ CTЮННЭД THЬАT А ЧАПАбЛЭ ПPОГPАММЭP CЮЧHЬ АC ЁОЮPCЭЛФ
УООЮЛДН'T HЬАВЭ АППЛИЭД THЬИC CОЛЮTИОН TО THЬЭ ПPОбЛЭМ А ЛОНГ TИМЭ АГО.
 
АНЁУОАЁ И УОАC АбЛЭ TО ДО ИT ИН НИНЭ ЛИНЭC:
 
ЮCИНГ CЁCTЭМ;
ЮCИНГ CЁCTЭМ.ЧОЛЛЭЧTИОНC.ГЭНЭPИЧ;
ЮCИНГ CЁCTЭМ.TЭXT;
ЮCИНГ CЁCTЭМ.ИО;
ЮCИНГ CЁCTЭМ.ДИАГНОCTИЧC;
 
НАМЭCПАЧЭ TPАНCЛАTОP 
{
            ЧЛАCC ПPОГPАМ 
            {
                        CTАTИЧ ВОИД МАИН(CTPИНГ[] АPГC) 
                        {
                                    ИНTЭPОЧИTЭP XЛT = НЭУО
ИНTЭPОЧИTЭP();
                                    CTPИНГ T;
                                    ЮCИНГ (CTPЭАМPЭАДЭP CP = НЭУО
CTPЭАМPЭАДЭP("Ч:\TЭCT.TXT")) T = CP.PЭАДTОЭНД();
                                    ЮCИНГ(CTPЭАМУОPИTЭP CУО = НЭУО
CTPЭАМУОPИTЭP("Ч:\\ОЮTПЮTФИЛЭ.TXT")) ФОP(ИНT И=0; И<T.ЛЭНГTHЬ;И++)
CУО.УОPИTЭ(XЛT.XЛАTЭ(T.CЮбCTPИНГ(И,1).TОЮППЭP()));
                        }
            }
            ЧЛАCC ИНTЭPОЧИTЭP:CОPTЭДЛИCT<CTPИНГ,CTPИНГ>
            {
                        ПЮбЛИЧ ИНTЭPОЧИTЭP()
                        {
                                    CTPИНГ[] АЛПHЬАбЭT;
                                    ЮCИНГ(CTPЭАМPЭАДЭP CP = НЭУО
CTPЭАМPЭАДЭP("Ч:\\TPАНCЛАTЭTАбЛЭ.TXT")) АЛПHЬАбЭT =
CP.PЭАДTОЭНД().CПЛИT(НЭУО ЧHЬАP[] {'\Н'});
                                    ФОP(ИНT И=0;И<АЛПHЬАбЭT.ЛЭНГTHЬ -
1;И++) бАCЭ.АДД(АЛПHЬАбЭT[И].CПЛИT(НЭУО ЧHЬАP[] { '\t'
})[1].CЮбCTPИНГ(0,1),АЛПHЬАбЭT[И].CПЛИT(НЭУО ЧHЬАP[] { '\t' })[0]);
                        }
                        ПЮбЛИЧ CTPИНГ XЛАTЭ(CTPИНГ C) {ИФ
(бАCЭ.ЧОНTАИНCКЭЁ(C)) PЭTЮPН бАCЭ[C]; ЭЛCЭ PЭTЮPН C;}
            }
 }
 
ФАЧT ИC, ИФ ЁОЮ'PЭ ГОИНГ ПPЭTЭНД THЬАT ЁОЮ КНОУО ЭВЭPЁTHЬИНГ, ЁОЮ МИГHЬT
ГЭT ЧАЮГHЬT.  THЬЭ бЭCT THЬИНГ TО ДО 
АT THЬАT ПОИНT, ИC АДМИT THЬЭ TPЮTHЬ, бЮT НОT ЁОЮ, НО CИP.
 
ЁОЮ CTИЛЛ PЭФЮCЭ TО АДМИT THЬАT ЁОЮ PЭАЛЛЁ ДОН'T КНОУО THЬЭ ЧЁPИЛЛИЧ
АЛПHЬАбЭT.
 
МЁ ФPЮCTPАTИОН УОИTHЬ ЁОЮ ИC THЬАT THЬИC АЛCО АППЛИЭC TО МАНЁ ОTHЬЭP
THЬИНГC ЁОЮ ЧОНCTАНTЛЁ АCCЭPT.  CЮЧHЬ АC АЛЛ
PЭПЮбЛИЧАНC АPЭ PАЧИCT, НАЗИ, HЬОМОCЭXЮАЛC УОHЬО "ЁОЮ ДЖЮCT ДОН'T КНОУО
УОHЬАT THЬЭЁ УОАНT ФОP THЬИC ЧОЮНTPЁ" ИНCИНЮАTИНГ
ОН TОП ОФ ИНCЮЛT THЬАT THЬЭЁ АPЭ АЛCО ЮН АМЭPИЧАН.  ЁОЮ НЭВЭP CTОП TО
THЬИНК THЬАT THЬИC ЧОЮЛД бЭ ИНЧPЭДИбЛЁ ИНCЮЛTИНГ
TО ОTHЬЭPC, ЭXTPЭМЭЛЁ PАЧИCT, АНД бИГОTЭД.
 
THЬЭН ЁОЮ КЭЭП TЭЛЛИНГ МЭ THЬЭ CАМЭ ЛИЭC, ОВЭP АНД ОВЭP, ДЭCПИTЭ ФАЧT
ПИЛЭД ОН TОП ОФ ФАЧT, бЭЧАЮCЭ THЬЭCЭ
ЛИбЭPАЛ "TPЮTHЬC" АPЭ TО бЭ бЭЛИЭВЭД ИН THЬЭ ФАЧЭ ОФ АЛЛ ЭВИДЭНЧЭ TО
THЬЭ ЧОНTPАPЁ.
 
CО, И АМ КЭЭПИНГ ЁОЮ TО ЁОЮP УООPД.  ЁОЮ ПPЭTЭНДЭД TО КНОУО ЧPЁPИЛЛИЧ,
THЬЭPЭФОPЭ ЁОЮ ДО, УОHЬЭTHЬЭP ИT ИC TPЮЭ ОP НОT, 
АНД И PЭФЮCЭ TО бЭЛИЭВЭ АНЁTHЬИНГ ЭЛCЭ.  ИН АбОЮT CИX ЁЭАPC (АбОЮT АC
ЛОНГ АC И'ВЭ HЬАД TО ЭНДЮPЭ THЬЭ "НЭУО ЭД")
THЬЭН И МИГHЬT ЧHЬАНГЭ бАЧК TО ЭНГЛИCHЬ, ИФ И ФЭЭЛ ЛИКЭ ИT, бЮT УОHЬЁ
CHЬОЮЛД И?
 
ЁОЮ УООН'T ЧHЬАНГЭ ЁОЮP МИНД ОН АНЁ ОФ THЬЭ ЛИбЭPАЛ ФАНTАCИЭC.
 
НО МАTTЭP УОHЬАT HЬАППЭНC.
 
CО И ЧАН бЭ ДЖЮCT АC CTЮббОPН АC ЁОЮ, бЮT И ДОН'T THЬИНК И ЧАН ЭВЭP бЭ
АC PАЧИCT АНД МЭАН АC ЁОЮ АPЭ.  НОT бЁ А ЛОНГ CHЬОT.
 
 
 ===================================================
                     End
 ===================================================