Во введенной символьной строке группу символов заменить на другую группу символов

Sub zamena()
Dim s, snew, c, n, i 
    Do
    s = InputBox("введите строку")
    n = Len(s)
    if n = 0 then exit Do
    
        For i = 1 To n
            c = Mid(s, i, 1)
            If c = "*" Then c = "!"
            snew = snew + c
        Next
 
        MsgBox "Введённая строка:" & vbtab & s & vbCr & vbCr & _
        "Изменённая строка:" & vbtab & snew
    Loop 'цикл завершится, когда пользователь нажмёт Cancel (в InputBox) 
End Sub

Sub zamena()
    Dim s$, snew$
    Dim n, i As Integer
    s = "Привет папаша***" 'InputBox("введите строку")
    snew = MyReplace(s, "***", "!")
    MsgBox (snew)
End Sub
 
Function MyReplace$(stroka$, WhatZam$, ZamNa$)
    Dim n As Double
    Do
        n = InStr(n + IIf(n = 0, 1, Len(ZamNa)-1), stroka$, WhatZam)
        If n <> 0 Then
            stroka = Mid(stroka, 1, n - 1) & ZamNa & Mid(stroka, n + Len(WhatZam))
        Else
            Exit Do
        End If
    Loop
    MyReplace = stroka
End Function

Function MyReplace$(stroka$, WhatZam$, ZamNa$)
    MyReplace = Join(Split(stroka, WhatZam), ZamNa)
End Function