Проблема с random в многопоточном режиме. (VB.Net)

Доброго времени суток. Возникла проблема с рандомом на vb.net. Суть программы такова, что 100+ потоков одновременно пытаются вызвать функцию, которая при помощи рандома (находящегося в do...loop) генерирует число от 1 до 92 несколько раз. Происходит это очень быстро. Почти сразу функция начинает возвращать одни единицы (минимальное значение).

Есть ли какой то способ оптимизировать обращение к рандому между потоками с минимальной потерей скорости?

Заранее спасибо