Option Explicit
Sub Main()
Dim A,B,C,D,Ini,Fin,Es,P1,P2,P3,P4,R1,R2
Dim N1(2),N2(2),Posta(3),Tutte(1),Ruote(2)
Dim Caso,Casi,Clp
Posta(2) = 0.5
Posta(3) = 0.5
Tutte(1) = TU_
Ini = EstrazioneFin - 50
Fin = EstrazioneFin
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,7))
For Es =...