Norm posted the source code of the rng from George Marsaglia and Arif Zaman more than 3 years ago on the page "Computing for Counters".
I tried to use this code for VB.net but I couldn't get it to work. I declared Seed1 and Seed2 as Integer. But I get a error stating "index out of range exception" for
uni = u(i97) - u(j97)
in the first line of
Public Function RND() As Double

Does anybody know a solution?