'Tutorial: itprof_tut
'Using Rnd defined Formula
max=100
min=1
Msgbox (Int((max-min+1)*Rnd+min))

'Another Method using Date and Time Stamp
 'Find out the current date and time
  Dim sDate : sDate = Day(Now)
  Dim sMonth : sMonth = Month(Now)
  Dim sYear : sYear = Year(Now)
  Dim sHour : sHour = Hour(Now)
  Dim sMinute : sMinute = Minute(Now)
  Dim sSecond : sSecond = Second(Now)

  'Create Random Number
  msgbox Int(sDate & sMonth & sYear & sHour & sMinute & sSecond)