Написать программу, которая удаляет из введённого слова любой введённый с клавиатуры символ. Слово вводится в программе - VBA

Sub удаляет_из_введённого_слова_любой_введённый_с_клавиатуры_символ()
    Dim s(1) As String, i&
    For i = 0 To 1
        s(i) = InputBox(Choose(i + 1, "Введите фразу", "Введите текст для удаления"))
    Next
    s(0) = Replace(s(0), s(1), "", , , 1)
    MsgBox s(0), 64
End Sub