Two Identical Code Giving Completely Different Result

I can't seem to get why one code is giving a correct solution and the other one, not even close. They are both identical but there are some difference.

The program is suppose to pick up about 11 cell values, it then store these cell values into a collection, and randomly picking out the 11 values without repeating until there is no more to pick out.

Here is the code: (the top one doesn't give the correct result, it picks it out of the same ones and the number doesn't seem to store correctly, the bottom codes works as it suppose to work.)

Code:

lastCol = Cells(215, Columns.Count).End(xlToLeft).Column

Dim C As New Collection, I As Integer, rdom As Integer

rowFOUR = 216
colFOUR = 2
'cntHIT = 0
rowtest = 216

[Code] ..........