Help !!!

Люди где взять написанную на VB (MS Word) функцию поиска в строке подстроку, и замены ее на что то бругое?

Например есть строка
a$ = "hello my dear friend anton. i am very glad to see you"

далее вызываю функцию, указываю ей, что в строке a$ нужно найти "anton", и заменить ее на "dmitry"
она возвращает мне
"hello my dear friend dmitry. i am very glad to see you"