You can use the Rnd() function. You can get more info on it in help but it takes a seed number in between the parens and generates a random number between 0 and 1. Next, you can concatenate the decimal portion of the number to your text, if that is what you want, like this:
"Test" + Right(ToText(rnd(1),4),4)
~Brian