Sub Test()
    Randomize Timer
    MsgBox RandInterval( 2 ,  10 )
End Sub
Function RandInterval(i As Integer, j As Integer)
    If i <  0  Or j <  0  Or i >= j Then Error  1 
    RandInterval = Int(Rnd() * (j - i +  1 )) + i
End Function