В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово - VB

Option Explicit
'
'   Антихакер32™
'
Private Sub Form_Activate()
    Dim s$, j$(), f&
    Do
        s = InputBox("Введите текст .. ", , "мама мама мама мама мама мама мама мама мама мама")
        j = Split(s, "мама")
        For f = 0 To UBound(j) Step 3
            If Trim(j(f)) = "" Then j(f) = " мамочка "
        Next
        s = Join(j, "мама")
        Cls
        Print s
        If MsgBox("повторить ?", vbYesNo) = vbNo Then Exit Do
    Loop
End Sub