Perchè non funziona , dove è l' errore ?
Sub Main()
Dim ambi(225000,8),nn(10),ruota(10)
ne = InputBox("Numero estrazioni:",,700)
perc = InputBox("Percentuale minima (60-90%):",,85)
ncg = InputBox("Numero colpi di gioco",,8)
casi = 0
ini = EstrazioneFin - ne
fin = EstrazioneFin
For x = 1 To...