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