Sub Main()
Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,S,Ok
Dim A,B,C,AB,AC,BC,E1,E2,P4,P5,Casi
Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
Ini = EstrazioneFin - Qua
Fin = EstrazioneFin
Casi = 0
For Es = Ini To Fin
Messaggio "elab. estr. del...