Создайте процедуру VBA , вычеркивающую из введенного текста все русские буквы К.

Sub aaa()    s = InputBox("Введите текст")    s = Replace(s, "к", "", , , vbTextCompare)    MsgBox sEnd SubЕсли нужна отдельная процедура для замены:Sub ReplKk(s As String)    s = Replace(s, "к", "", , , vbTextCompare)End SubSub Test()    Dim s As String    s = InputBox("Введите текст")    ReplKk s    MsgBox sEnd Sub