I have a function called DieRoll. In the function I have the following setup.

Code:
Dim objRandom as New Random
Dim intRoll as Integer

intRoll = objRandom.Next(1,7)

Return intRoll
Everything works as expected as far as generating a random number (1 - 6) is concerned, except for one problem. If I have a series of calls to the function one after another, the numbers come up the same. Is there a way to make sure that each call to the function is much more random?