Substitute or replace letters

Hello, i neet to substitute or replace letters(characters) IFor example, if i have a word in latin letters, i need to transform the same word in cyrilic letters. If i have the word grass, to transform it to грасс (grass => грасс)
i can make masiv with 2 rows with replaced any letter from latin to cyrilic, but then im not sure how to use the function with this masiv.
i found something like this :
1. A, А
2. B, Б
3. C, Ц
4. D, Д

Dim intCount As Long, intNum As Long
intNum = UBound(strMasiv)

For intCount = 0 To intNum Step 1
strText = Replace(strText, strMasiv(intCount, 2), strMasiv(intCount, 1))
Next intCount

i need some help to complete this, or just to give me an example how to use is.

с русским дружите?
http://excelvba.ru/code/TranslitAddin
http://excelvba.ru/code/translit

Hello,thanks for the answer, i'm from Bulgaria. I need this, because somethimes we write in bulgarian but with latin characters, but i need the text in clear cyrilic. It works great, but is there a chance to make it with visible function or something, not with a macros. Because i need to edit the function and integrade logical data. So i thing something exactly like this but if it is possible to be without using of macros.

it's easy with one letter, what to do with reach or succeed
you should upload a replace table

Ok, but what function to use to replace the whole text at once?

table first

ok here is the example of the table latin to cyrilic.png

this is a forum for excel not paint

Sorry, i cant post the table here, i don't know why

latin to cyrilic.xlsx
here is the sample table

Thank you