請教高手(編號:8542)

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