Random Number Generation within given Range?

Function genRand(upperbound,lowerbound)
msgbox Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function

call genRand(10,1)