VBScript - Decoder for keylogger

Sub KeyboardTranslit()
  Const Lat = "qwertyuiop[]asdfghjkl;'zxcvbnm,./"
  Const Rus = "йцукенгшщзхъфывапролджэячсмитьбю."
  Dim i As Integer
  For i = 1 To Len(Lat)
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = Mid(Lat, i, 1)
      .Replacement.Text = Mid(Rus, i, 1)
      .Execute Replace:=wdReplaceAll
    End With
    DoEvents
  Next
End Sub