Se creo scompiglio o vado fuori tema ...fatemi un fischio :p:) Ciao
Option Explicit
Sub Main()
Dim IdEs,Fin,Ini,r,ValSomma,nEsC,nES,co,x,IniCiclo,FinCiclo,IdEsC
Dim Nu,p,nE,Fr,FrRif,EsFrRif,cf,cp
'
ValSomma = CInt(InputBox("Valore Somma ",,285))
nEsC = CInt(InputBox("numero di estrazioni...