For i = 0 To 35
pole2(i) = -1
Next

For cislo_karty = 0 To 17
pole2(nahodne_cislo) = CInt(Int(36 * Rnd()))
If pole2(nahodne_cislo) IsNot "-1" Then
pole2(nahodne_cislo) = cislo_karty
End If

pole2(nahodne_cislo) = CInt(Int(36 * Rnd()))
If pole2(nahodne_cislo) IsNot "-1" Then
pole2(nahodne_cislo) = cislo_karty
End If
Next


takhle ?