str=Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(str,"Я","YA"),"Ю","YU"),"Э","E"),"Ь",""),"Ы","Y"),"Ъ",""),"Щ","SCH"),"Ш","SH"),"Ч","TCH"),"Ц","C"),"Х","H"),"Ф","F"),"У","U"),"Т","T"),"С","S"),"С","S"),"Р","R"),"П","P"),"О","O"),"Н","N"),"М","M"),"Л","L"),"К","K"),"Й","Y"),"И","I"),"З","Z"),"Ж","ZH"),"Ё","YO"),"Е","E"),"Д","D"),"Г","G"),"В","V"),"В","V"),"Б","B"),"А","A")

str=UCase$ (str)
for i= 1  to Len(str)
  Select case mid$(str,i, 1 )
  Case "А" newstr=newstr & "A"
  ...
  End Select
Next i

str=UCase$ (str)
l=Len(str)
newstr=space(l* 3 )
NewLen= 0 
for i= 1  to Len(str)
  Select case mid$(str,i, 1 )
  Case "А"
    newstr=newstr & "A"
    NewLen=NewLen+ 1 
  ...
  Case "Щ"
    newstr=newstr & "SCH"
    NewLen=NewLen+ 3 
  ...
End Select

str=Left$(NewStr,NewLen)