Замена вводимых символов - VB

Формулировка задачи:

Здравствуйте ув. программисты! Нужна следующая помощь: Есть textbox1 в который вводится текст на пример qwerty. Необходимо вывести в textbox2 - йцукен. Также нужно что бы вместо qwerty мог быть текст любой длины. Заранее спасибо за любую помощь =)

Решение задачи: «Замена вводимых символов»

textual
                            Листинг программы 
                        

                            Const LAT = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
Const RUS = "йцукенгшщзфывапролдячсмитьЙЦУКЕНГШЩЗФЫВАПРОЛДЯЧСМИТЬ"
 
Private Sub Text1_Change()
Dim i&, j&, s$, d$
s = Text1
For i = 1 To Len(s)
    j = InStr(LAT, Mid$(s, i, 1))
    If j Then
        d = d & Mid$(RUS, j, 1)
    Else
        j = InStr(RUS, Mid$(s, i, 1))
        If j Then d = d & Mid$(LAT, j, 1)
    End If
Next
Text2 = d
End Sub
                        