Шифратор на VBA

[Versifikator]

Пожалуйста помогите решить задачу!!!
Задача: Создайте макрос, который будет кодировать текст, заменяя буквы "а" в тексте указанной ячейки на произвольный символ, и выводить закодированный текст в новой ячейке. Для запуска макроса расположить кнопку.

[SAS888]

Так пойдет?

Sub Shifr()
Dim MyString As String, NewString As String
Dim i As Integer
MyString = Range("A1") 'Пусть это ячейка, содержащая текст
NewString = MyString
For i = 1 To Len(MyString)
If Mid(MyString, i, 1) = "а" Then NewString = Application.Replace(NewString, i, 1, Chr(Rnd * 30 + 225))
Next
Range("A2") = NewString 'Пусть это ячейка будет содержать новый текст
End Sub

Здесь русская "а" заменяется случайным символом из диапазона Chr(Rnd * 30 + 225). Можно установить любой другой.

[SAS888]

Создай элемент управления "кнопка" на рабочем листе и в его модуле вставь либо код этого макроса, либо команду Run "Shifr" (запуск макроса из программного модуля).

[Pavel55]

Вот ещё предложу вариант. Тут заменяется каждая буква а (А) на произвольную.

Sub Scrambler()
Dim iRange As Range
Dim i As Long
Dim NewLetter As String
Dim OldString As String

    Set iRange = Application.InputBox("Мышкой укажите на ячейку!", "Адрес ячейки", "=A1", , , , , 8)
    OldString = iRange
    If Len(OldString) = 0 Then
        MsgBox "Ячейка: " & iRange.Address(0, 0) & " пуста!", , "Ошибка"
        Exit Sub
    End If
    For i = 1 To Len(OldString)
        If Mid(OldString, i, 1) = "а" Or Mid(OldString, i, 1) = "A" Then
            Do
                NewLetter = Int(192 + (Rnd * 63))
            Loop Until NewLetter <> 124 And NewLetter <> 192
            Mid(OldString, i, 1) = Chr(NewLetter)
        End If
    Next
    iRange.Offset(, 1) = OldString
    MsgBox "Done!"
End Sub

[Versifikator]

Большое спасибо!