Chip,

Again, thank you for taking time with this. Would you field one more
question for me?

Perhaps the error is generated immediately after the function
calculates, and then returns to the main subroutine?

It looks like this:

mt(0) = (s And &HFFFFFFFF)
For mti = 1 To N - 1
mt(mti) = 1812433253 * (mt(mti - 1) Xor (RShift(mt(mti - 1), 30)) +
mti)
Next mti
mt(mti) = &HFFFFFFFF

Best regards,

Nick

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!