The (pseudo) random numbers created by this are always the same. Can I change that?
Code:
    Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
        Rand = Int((High - Low + 1) * Rnd) + Low
    End Function