Создайте процедуру 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