Reposting test routine because it didn't post right 1st time...


Sub Test_ReplaceWords()
Const sWords$ = "must :should ,fruits :eggs ," _
& "vegetables :bacon ,day :morning "
Const sText$ = "You must eat lots of fruits and vegetables every day
in the daytime hours."
Debug.Print ReplaceWords(sText, sWords)
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion