Замена кириллицы на транслит - VB

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

Задача такая: В текстовое окно вводиться кириллица и автоматически переводит в транслит. Если была введена допустим ш то в транслите sh и если нажать BackSpace то она должна удалить две буквы sh.

Решение задачи: «Замена кириллицы на транслит»

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

                            Private Sub Text1_KeyPress(KeyAscii As Integer)
    Static b As Boolean
    On Error Resume Next
    Select Case KeyAscii
    Case 8
        Select Case Mid$(Text1, Text1.SelStart - 1, 2)
        Case "sh", "SH", "th", "ya" '......
            If Not b Then b = True: SendKeys "{BS}", True
        End Select
    End Select
    b = False
End Sub
                        