Script-to write a function to return a random number

Dim rannum

Function Generate_Random()
   Dim upperbound,lowerbound
   upperbound=1000
   lowerbound=0
   rannum=int((upperbound-lowerbound=1)*Rnd+lowerbound)
   generate_Random=rannum

End Function

rannum=Generate_Random()
print("Random number is: "&Cstr(rannum))