How to get Random Number in QTP

Code in the below example is used to get random number between 1 and 100 in QTP.
 Dim max,min
max=100
min=1
Randomize
print Int((max-min+1)*Rnd+min))