I'd just call pvtReplaceText () two times



Sub drv()
    Call pvtReplaceText("puppy", "dog", True)
    Call pvtReplaceText("doggie", "dog", True)
End Sub