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