Как получить много случайных чисел?

[Anatole]

Добрый день.
У меня есть двумерный массив из 65000 строк и 5 столбцов. Мне надо заполнить его случайными числами от 0 до 1. Я заполняю его так:

Redim dblMas(65000,5) as Double
For i=1 to 65000
For j=1 to 5
Randomize
dblMas(i,j)=Rnd
Next j
Next i

Проблема в том, что когда я получаю этот массив и сортирую его, то оказывается, (внимание!) что он включает строки, совершенно полностью совпадающие по всем 5 столбцам вплоть до последнего знака, причем каждая такая строка повторяется ровно 32 раза.
Есть ощущение, что причина лежит в том, что в качестве опорной точки для генерации чисел, видимо, используется таймер времени, который, видимо, имеет разрешение в 32 единицы.
Подскажите, пожалуйста, как избавиться от этих повторов и сделать однородный, без повторов, массив случайных чисел?
Спасибо.

[VVitafresh]

Попробуй сделать Randomize только один раз перед циклами.