Function razlicit(Broj As Integer)
Dim sluc_broj As Integer

sluc_broj = Int((100 * Rnd) + 1)
Do While sluc_broj = Broj
sluc_broj = Int((100 * Rnd) + 1)
Loop
razlicit = sluc_broj

End Function