Generate Random Number

Generate Random Number For a Given Length

Function RandomNumberForLength(iLen)
    iMin=1
    iMax=9
    For i=1 To iLen-1
        iMin = iMin & 0
        iMax = iMax & 9
    Next
    Randomize
    RandomNumberForLength = Int((iMax-iMin)*Rnd+iMin)
End Function

MsgBox RandomNumberForLength(3)

Generate Random Number For a Given Range

Function RandomNumberForRange(iMin,iMax)

    Randomize
    RandomNumberForRange = Int((iMax-iMin)*Rnd+iMin)
End Function

MsgBox RandomNumberForRange(100,999)