Dim MyValue
Randomize
MyValue = CInt((40 * Rnd) + 1)