Generating random number in a sequence using VBscript

Question

I'm new to vbscript.

I've got this so far

Function random_number_generator (lowerLim, upperLim)
    Randomize
    randNumber = Int(((upperLim-lowerLim+1)* Rnd())+ lowerLim)
    random_number_generator = randNumber
End Function

But how do I make it to have a sequence for generating let's say 9 digit social security number?

for example if the first social security is 200030886 next would be 200030887 and so on.

Answer 1

I'm not sure why you have a random element to your question. I seems like you just want a counter?

Dim start, ends
start = 200030886
ends = 200040000

for k = start to ends
    MsgBox k
next

If you need a random number formatted like the numbers above, you can try this.

MsgBox random_number_generator(1, 10000)

Function random_number_generator (lowerLim, upperLim)
    Randomize
    randNumber = Int(((upperLim-lowerLim+1)* Rnd())+ lowerLim)
    random_number_generator = "2" & RIGHT("000000000" & randNumber, 8)
End Function

Hope that helps