Generate Randomize Number

i trying to generate randomize number between in the range of 1 to 9999 using the below code. DNum* is between 1 - 9

RandValue = CLng((2^7*(ID1Num1))+(2^6*(ID1Num2))+(2^5*(ID1Num3 ))+(2^4*(ID1Num4))+(2^3*(ID1Num5))+(2^2*(ID1Num6)) +(2^1*(ID1Num7))+min1+min2+sec1+sec2)

then i put the randvalue where is usually generate number between 400-to-1500 into the below formula, any suggestion on how to improve the below code?

num_pmax = Int((9999 * Rnd) + 1)
num_pmin=1
value1 = Int((Num_pmax-Num_pmin+1)*Rnd+Num_pmin + RandValue)