here's a handy little piece of code:

VB Code:
  1. Public Function RandomNumber(Min as Double, Max as Double, Optional WholeNumber as Boolean = True)

  2.     If WholeNumber = True then

  3.         RandomNumber = Int(Rnd() * (Max - Min) + Min)

  4.     Else

  5.         RandomNumber = Rnd() * (Max - Min) + Min

  6.     End If

  7. End Function