Ф-ия переколдовки (translit)

 StrReplace=Implode(Split(stroka,symbolA),symbolB)

Public Function translit(s As String) As String
Dim cyr As Variant
Dim lat As Variant
Dim conv List As String
Dim i As Integer
Dim c As String
Dim result As String
cyr = Split("А,Б,В,Г,Д,Е,Ё", ",")
lat = Split("A,B,V,G,D,E,Yo", ",")
For i = 0 To Ubound(cyr)
conv(Cstr(cyr(i))) = Cstr(lat(i))
Next
For i = 1 To Len(s)
c = Mid$(s, i, 1)
If Iselement(conv(c)) Then
result = result + conv(c)
Else
result = result + c
End If
Next
translit = result
End Function

StrReplace=Implode(Split(stroka,symbolA),symbolB)