'MacroName:autoTransRussian

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")

   CS.CursorRow = 999
   r% = CS.CursorRow
   do
      CS.GetFieldLine r%, temp$
      tag$ = left(temp$, 3)
      select case tag$
         case "100", "110", "111", "260", "264", "490", "800", "830"
            CS.RunMacro "Transliteration!Latin2Cyrillic"
      end select
      r% = r% - 1
      CS.CursorRow = r%
   loop until r% = 0
End Sub