Attribute VB_Name = "Str_chne"

Function RusSymOther$(Text$, CodeOut%, CodeInp%)
'
'  Cyrillic converting
' CodeInp% - source code number
' CodeOut% - result code number
'
'----------------------------------------------------
    SymInp$ = RusSymSet$(CodeInp%)
    SymOut$ = RusSymSet$(CodeOut%)
    RusSymOther$ = SymChange$(Text$, SymOut$, SymInp$)
End Function

Function RusSymSet$(Code%)
'
'  Cyrillic code number
'1 - Alternative Cyrillic (DOS, CP866)
'2 - MS Windows Cyrillic (CP1251)
'3 - UNIX Cyrillic (KOI8)
'4 - General Cyrillic (ISO 8859-5)
'5 - Macintosh Cyrillic (Apple's)
'6 - MIC Cyrillic (Bulgarian)
'''''''''''''''''''''''''''''''''

Const D$ = "����������������������������������������������������������������"
Const W$ = "����������������������������������������������������������������"
Const KOI8$ = "����������������������������������������������������������������"
Const Cyr$ = "����������������������������������������������������������������"
Const Mac$ = "����������������������������������������������������������������"
Const Bul$ = "����������������������������������������������������������������"
   
    Select Case Code%
      Case 1: RusSymSet$ = D$
      Case 2: RusSymSet$ = W$
      Case 3: RusSymSet$ = KOI8$
      Case 4: RusSymSet$ = Cyr$
      Case 5: RusSymSet$ = Mac$
      Case 6: RusSymSet$ = Bul$
    End Select
End Function

Function SymChange$(Text$, NewCode$, OldCode$)
'
'  String converting Text$:
'  OldCode$ -> NewCode$
'
' Attention! - LEN(NewCode$)=LEN(OldCode$)
'------------------------------------------------------
     Sym$ = Text$: Ltext% = Len(Text$)
     If Ltext% > 0 Then
       For i% = 1 To Ltext%
         k% = InStr(OldCode$, Mid$(Text$, i%, 1))
         If k% > 0 Then Mid$(Sym$, i%, 1) = Mid$(NewCode$, k%, 1)
       Next i%
     End If
     SymChange$ = Sym$
End Function