ecco il listato corretto:
Sub main() 			
Dim ruote(2)			
Dim numeri1(5)			
Dim numeri2(5)			
Dim numeri3(5)			
Dim numeri4(10)			
Dim posta1(5)			
Dim posta(5)			
Dim poste(5)			
ruote(1)=6			
posta(2)=1.5			
k=3			
y=2			
For n=8160 To EstrazioneFin			
If IndiceMensile

=11 Then			
numeri1(1)=Fuori90(Estratto(n,9,2)*02)			
numeri1(2)=Fuori90(Estratto(n,10,4)+68)			
ImpostaGiocata 1,numeri1,ruote,posta,k			
numeri3(2)=Fuori90(Estratto(n,9,2)+10)			
numeri3(3)=Fuori90(Estratto(n,9,3)+72)			
ImpostaGiocata 2,numeri3,ruote,posta,k			
numeri3(2)=Fuori90(Estratto(n,9,2)+20)			
numeri3(3)=Fuori90(Estratto(n,4,3)+06)			
ImpostaGiocata 3,numeri3,ruote,posta,k			
numeri3(2)=Fuori90(Estratto(n,9,2)+07)			
numeri3(3)=Fuori90(Estratto(n,1,1)*90)			
ImpostaGiocata 4,numeri3,ruote,posta,k			
numeri3(2)=Fuori90(Estratto(n,9,2)+04)			
numeri3(3)=Fuori90(Estratto(n,4,4)+81)			
ImpostaGiocata 5,numeri3,ruote,posta,k			
numeri3(2)=Fuori90(Estratto(n,9,2)*80)			
numeri3(3)=Fuori90(Estratto(n,2,4)*15)	
ImpostaGiocata 6,numeri3,ruote,posta,k			
numeri3(2)=Fuori90(Estratto(n,9,2)+04)			
numeri3(3)=Fuori90(Estratto(n,1,1)+05)			
ImpostaGiocata 7,numeri3,ruote,posta,k			
ImpostaInterruzioni a,b,2			
ImpostaInterruzioni 1,a,2			
ImpostaInterruzioni a,1,1			
Gioca n  			
End If			
Next			
ScriviResoconto			
End Sub