Cerco errore in questo script

[foxrex]

Grazie
Ho trovato questo script, mi da l'errore sono talmente ignorante che se manca solo una virgola non saprei che fare
----------------------------------------------------------------------------------------------------------------
Sub Main()
Scrivi"Chicca Per Bari ,di Patty@dreams 64 - http://forum.lottoced.com/f8/chicca-per-bari-105096/ - ",1
Scrivi
Dim n(2),am1(4),am2(4),am3(4),ruota(1)
Dim posta(1),poste(2)
posta(1) = 1
poste(2) = 1
ruota(1) = BA_
k = 10
Ini = EstrazioneIni + 8475
fin = EstrazioneFin
For es = Ini To fin
Messaggio Es
AvanzamentoElab Ini,fin,es
If IsUltimaDelMese(es) Then
casi = casi + 1
Scrivi String(58,"-") & " caso n° " &(casi)
n(1) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 06) '1° Ca + 3° Ca + 06 1° Ambata
n(2) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 25) '1° ca + 3° Ca + 25 2° Ambata
ImpostaGiocata 1,n,ruota,posta,k
am1(1) = n(1) '1° Ambata
am1(2) = n(2) '2° Ambata
am1(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am1(4) = Vert(n(1)) 'Vertibile della 1° Ambata
ImpostaGiocata 2,am1,ruota,poste,k,2
am2(1) = n(1) '1° Ambata
am2(2) = n(2) '2° Ambata
am2(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am2(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 3,am2,ruota,poste,k,2
am3(1) = n(1) '1° Ambata
am3(2) = n(2) '2° Ambata
am3(3) = Vert(n(1)) 'Vertibile della 1° Ambata
am3(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 4,am3,ruota,poste,k,2
Gioca es,True,,1
End If
Next
ScriviResoconto
Se non ho capito male questo script ricerca 2 ambate e i relativi vertibili sulla ruota di bari,
Avrei bisogno che mi trovasse su tutte le ruote e possibile fare modifica
in Pratica mi serve questo
Il 2° estratto di Milano + Il 3° estratto di Venezia + 54 = 1° Ambata
Il 2° estratto di Milano + Il 3° estratto di Venezia + 10 = 2° Ambata
X sorti maggiori i 2 Vertibili.......Solo vorrei che mi desse il resoconto per le 11 Ruote
Perche' anni fa avevo questo metodo ma non ricordo la ruota , dal 2010
Grazie a chi puo'

 

[gamberorosso]

ciao manca end sub alla fine copia questo....
Sub Main()
Scrivi"Chicca Per Bari ,di Patty@dreams 64 - Chicca Per Bari - ",1
Scrivi
Dim n(2),am1(4),am2(4),am3(4),ruota(1)
Dim posta(1),poste(2)
posta(1) = 1
poste(2) = 1
ruota(1) = BA_
k = 10
Ini = EstrazioneIni + 8475
fin = EstrazioneFin
For es = Ini To fin
Messaggio Es
AvanzamentoElab Ini,fin,es
If IsUltimaDelMese(es) Then
casi = casi + 1
Scrivi String(58,"-") & " caso n° " &(casi)
n(1) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 06) '1° Ca + 3° Ca + 06 1° Ambata
n(2) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 25) '1° ca + 3° Ca + 25 2° Ambata
ImpostaGiocata 1,n,ruota,posta,k
am1(1) = n(1) '1° Ambata
am1(2) = n(2) '2° Ambata
am1(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am1(4) = Vert(n(1)) 'Vertibile della 1° Ambata
ImpostaGiocata 2,am1,ruota,poste,k,2
am2(1) = n(1) '1° Ambata
am2(2) = n(2) '2° Ambata
am2(3) = Fuori90(Estratto(Es,CA_,1) + Estratto(Es,CA_,3) + 36) '1° Ca + 3° Ca + 36 X terno
am2(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 3,am2,ruota,poste,k,2
am3(1) = n(1) '1° Ambata
am3(2) = n(2) '2° Ambata
am3(3) = Vert(n(1)) 'Vertibile della 1° Ambata
am3(4) = Vert(n(2)) 'vertibile della 2° Ambata
ImpostaGiocata 4,am3,ruota,poste,k,2
Gioca es,True,,1
End If
Next
ScriviResoconto
End Sub