Поточная замена в textbox - VB

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

Ребята, подскажите как реализовать такое: чтобы при наборе текста в textbox, программа присваивала нажатым клавишам соответствующим значения и массива данных. При этом есть три массива данных: для русской раскладки, для английской, знаки препинания (и пробел).

Решение задачи: «Поточная замена в textbox»

textual
                            Листинг программы 
                        
Private Sc1 As String
Private Sc2 As String
 
Private Sub Form_Load()
 
   Sc1 = "ФБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
   Sc2 = "ZXCVBNM<>?ASDFGHJKL:QWERTYUIOP{}~"
 
   Sc1 = Sc1 + LCase$(Sc1)
   Sc2 = Sc2 + LCase$(Sc2)
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
   c$ = Chr$(KeyAscii)
   
   k% = InStr(Sc1, c$)
   
   If k% > 0 Then KeyAscii = Asc(Mid$(Sc2, k%, 1))
 
End Sub