請教高手(編號：8541)

Private Sub() ?如遇到重覆的值,如何使其重新再取一次,
cc = 0　　　　 而不會造成無窮回圈
Do While cc ＜ 5
Call call1
value = lk
cc = cc + 1
End If
Loop
sub call1()
randomize
lk=fix((25-1+1))*rnd+1
end sub