Allarme parzialmente rientrato non avevo aggiornato le estrazioni

e forse per questo mi dava il messaggio di errore però persiste la faccenda che
non mi da più il resoconto la vincita, mi da sempre 0 (zero) ho controllato quasi tutti gli script questo è un semplice script fatto da me con vincite plurime segnalate nel dettaglio ma non riportate nel resoconto:
Sub main()
' in effetti l'ho tratto dal sommativo automatico del programma
Dim rt(1) 'la ruota è una(1)
Dim nr(2) ' i nr in gioco sono 2
Dim pta(1) ' la puntata che faccio è l'estratto(1)
pta(1) = 1 'la puntata sull'Estratto((1) è di 1 euro
rt(1) = 1 ' la ruota che è una(1) è 1 ovvero BA
k = 5 ' i Kolpi in gioco sono 5
For n = 7788 To EstrazioneFin 'GRAZIE LUIGI!!
If IndiceMensile

= 1 Then
ng = 0
nr(1) = Fuori90(Estratto(n,1,4) + 21)'1° numero
nr(2) = Fuori90(Estratto(n,1,4) + 49)' 2° numero
ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'estratto = 1
Gioca n
End If
Next
ScriviResoconto
End Sub
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 38 |
| Casi vincenti : 28 |
| Percentuale pos. : 73,68 % |
| Giocate in corso : 0 |
| Giocate terminate : 38 |
| Bollette giocate : 140 |
| Bollette vincenti : 28 |
| Attesa media : 3 |
| Spesa : 140,00 € |
| Vincita : 0,00 € |
| Guadagno : -140,00 € |
| Perc. Rendimento : -100 % |
| Estratto su ruota : 29 |
| Ambo su ruota : 1 |
+--------------------------------