Генератор случайных чисел в VBA

[LenZab]

Господа программисты! Помогите в одном вопросе. Нужно с помощью генератора случайных чисел получить число от 1 до 6. Что то не как не получается...
Пишу
Randomize
s1 = Int(Rnd(6))
но постоянно выдается 0 ...что не так как написать?

[Step_UA]

s1=int(rnd*6)+1

[kuklp]

А справку почитать?

Rnd Function Example
This example uses the Rnd function to generate a random integer value from 1 to 6.

Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.