Макрос для word типа punto switcher

[user100]

Вот собсна код:

Dim A As String
Dim B As String
Dim C As String
Dim D As String
Dim i As Integer
Dim j As Integer
A = "ё1234567890-=йцукенгшщзхъфывапролджэ\ячсмитьбю. Ё!@№;%:?*()_+ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖ/ЯЧСМИТЬБЮ,"
B = "`1234567890-=qwertyuiop[]asdfghjkl;'\zxcvbnm,./ ~!@#$%^&*()_+QWERTYUIOP{}ASDFGHJKL:|ZXCVBNM<>?"
C = Selection.Text
For i = 1 To Len(C)
   For j = 1 To Len(A)
     If Mid$(A, j, 1) = Mid$(C, i, 1) Then D = D + Mid$(B, j, 1)
   Next
Next
Selection.Text = D

Поясните вот эти строчки кода, пожалуйста, т.е объясните, что делает программа:

C = Selection.Text
For i = 1 To Len(C)
   For j = 1 To Len(A)
     If Mid$(A, j, 1) = Mid$(C, i, 1) Then D = D + Mid$(B, j, 1)
   Next
Next
Selection.Text = D

[Zer0]

C = Selection.Text   ' взять выделенный текст
For i = 1 To Len(C) 'пройтись циклом по всей его длине
   For j = 1 To Len(A) 'а теперь проходим по строке А, и если
     If Mid$(A, j, 1) = Mid$(C, i, 1) 'символ в строке А позиция j совпадает с символом строки C в позиции i, то
      Then D = D + Mid$(B, j, 1) 'строку D конкатенируем с символом той же позиции, но из строки B
   Next
Next
Selection.Text = D 'ну и меняем выделенный текст на то что получили

вроде постарался максимально понятно, вот еще примерчик
строка "ку", берем сначала первый символ "к", ищем в какой позиции он находится в строке A (получаем 17), в строку d (изначально пустую) добавляем символ из 17 позиции строки B ("r"),
аналогично со вторым символом ("у");
в итоге в D получим "re"