Sub Makro1()
Dim pole(9) As String
Randomize
For i = 0 To 9
pole(i) = Int(100 * Rnd) + 1
Next i


For i = 0 To 9

For j = 0 To 9
If (pole(i) = pole(j) And i <> j) Then
pole(i) = Int(100 * Rnd) + 1
i = 0
End If
Next j

Next i

MsgBox (pole(0) & ", " & pole(1) & ", " & pole(2) & ", " & pole(3) & ", " & pole(4) & ", " & pole(5) & ", " & pole(6) & ", " & pole(7) & ", " & pole(8) & ", " & pole(9))
End Sub