DIM RndList(Count-1) as Integer