More Booze

I wrote a function which picks a random word from a listbox.
The function is called "RANDOMWORD".

I got a textbox with the text
"Hi I am (WORD). I like to (WORD) and (WORD)."

I want to replace all (WORD) with random words but if
I use
document = Replace(document, "(WORD)", RANDOMWORD)
it will change all (WORD) to the same random word.

How should I do to get a new word for each (WORD) in the textbox?
(In the exeample its only 3 (WORD) but it vary)