[RESOLVED] how to remove a repeating number rnd

[public]

For X = 1 To 9
Num = (X - 1) \ 4 + 1 ' make numbers 1,1,1,1,2,2,2,2,3
N = Int(Rnd * 9) + 1 ' random integer 1 to 9
cmdTile(N).Caption = Num
Next X

N repeats so some tiles are blank help with code.