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

Sub aaa()
    s = InputBox("Введите текст")
    s = Replace(s, "к", "", , , vbTextCompare)
    MsgBox s
End Sub



Sub ReplKk(s As String)
    s = Replace(s, "к", "", , , vbTextCompare)
End Sub

Sub Test()
    Dim s As String
    s = InputBox("Введите текст")
    ReplKk s
    MsgBox s
End Sub