[B][COLOR=#0000C0]Option Explicit[/COLOR][/B]
[B][COLOR=#0000C0]Sub Main[/COLOR][/B]
[B][COLOR=#0000C0]Dim[/COLOR][/B] [B][COLOR=#FF00FF]P[/COLOR][/B],[B][COLOR=#FF00FF]I[/COLOR][/B],[B][COLOR=#FF00FF]F[/COLOR][/B] [COLOR=#008000]'Primario / Inizio / Fine[/COLOR]
[B][COLOR=#0000C0]Dim[/COLOR][/B] [B][COLOR=#FF00FF]N[/COLOR][/B] [COLOR=#008000]' Ciclo -Enne- Estrazioni[/COLOR]
[B][COLOR=#0000C0]Dim[/COLOR][/B] [B][COLOR=#FF00FF]S[/COLOR][/B] [COLOR=#008000]'Secondario[/COLOR]
[B][COLOR=#0000C0]Dim[/COLOR][/B] [B][COLOR=#FF00FF]E[/COLOR][/B] [COLOR=#008000]'Estrazione [/COLOR]
[COLOR=#008000]'DATI :[/COLOR]
[B][COLOR=#FF00FF]I[/COLOR][/B] [B][COLOR=#FF0000]=[/COLOR][/B] 3862 [COLOR=#008000]'Inizio Principale[/COLOR]
[B][COLOR=#FF00FF]F[/COLOR][/B] [B][COLOR=#FF0000]=[/COLOR][/B] [B][COLOR=#800080]EstrazioneFin[/COLOR][/B] [COLOR=#008000]'Fine Primcipale[/COLOR]
[B][COLOR=#FF00FF]N[/COLOR][/B] [B][COLOR=#FF0000]=[/COLOR][/B] 9 [COLOR=#008000]'Numero di estrazioni per ciclo[/COLOR]
[B][COLOR=#0000C0]For[/COLOR][/B] [B][COLOR=#FF00FF]P[/COLOR][/B] [B][COLOR=#FF0000]=[/COLOR][/B] [B][COLOR=#FF00FF]I[/COLOR][/B] [B][COLOR=#0000C0]To[/COLOR][/B] [B][COLOR=#FF00FF]F[/COLOR][/B] [COLOR=#008000]'Ciclo principale[/COLOR]
[B][COLOR=#0000C0]For[/COLOR][/B] [B][COLOR=#FF00FF]S[/COLOR][/B] [B][COLOR=#FF0000]=[/COLOR][/B] 0 [B][COLOR=#0000C0]To[/COLOR][/B] [B][COLOR=#FF00FF]N[/COLOR][/B] [B][COLOR=#FF0000]-[/COLOR][/B] 1 [COLOR=#008000]'Ciclo Secondario[/COLOR]
[B][COLOR=#FF00FF] E[/COLOR][/B] [B][COLOR=#FF0000]=[/COLOR][/B] [B][COLOR=#FF00FF]P[/COLOR][/B] [B][COLOR=#FF0000]+[/COLOR][/B] [B][COLOR=#FF00FF]S[/COLOR][/B] [COLOR=#008000]'Estrazione nel ciclo[/COLOR]
[B][COLOR=#800080] Scrivi[/COLOR][/B] [B][COLOR=#FF00FF]E[/COLOR][/B] [B][COLOR=#FF0000]&[/COLOR][/B] "",0,0
[B][COLOR=#0000C0]Next[/COLOR][/B]
[B][COLOR=#800080]Scrivi[/COLOR][/B] [COLOR=#008000]'A[/COLOR]c[COLOR=#008000]apo ogni ciclo[/COLOR]
[B][COLOR=#0000C0]Next[/COLOR][/B]
[B][COLOR=#0000C0]End [/COLOR][/B][B][COLOR=#0000C0]Sub[/COLOR][/B]