Function rndm(lowerbound As Integer, upperbound As Integer)
    rndm = Int((upperbound - lowerbound + 1) * rnd + lowerbound)
End Function