Ciclo for e resoconto

[fillotto]

In uno script che allego ho un ciclo for da 1 a 30 dove voglio applicare 30 adattatori ai primi e 2 estratti solo quando quest'ultimi siano consecutivi tipo 1 e 2 , 2 e 3 ecc. Ora io vorrei che per ognuno dei trenta adatt vi fosse un rendiconto cosa che adesso fa ma tiene conto del rendiconto precedente mentre io vorrei che fossero 3o rendiconti indipendenti l'uno dall'altro, ecco lo script:

Sub Main
	Dim idEstr
	Dim Inizio,Fine
	Dim nu(5)
	Dim nColpi
	ReDim aNumInGioco(5)
		ReDim apta(06)
	apta(01) = 1.00 ' Estratto

	SetPremioPagatoFT 1,1,4.50,0.20 '  Ambata

Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)		
	'ATTENZIONE TROVA 1 NUMERO CHE E' IL RISULTATO DELLA CONVERGENZA DI DUE ADATTATORI 	
	nColpi = 1	
		Fine = EstrazioniArchivioFT 	
	Inizio = Fine - 200
n = idEstr	
aa = InputBox(" Posizione del 1° numero  ?",,1)
bb = InputBox(" Posizione del 2° numero  ?",,2)
For ada = 1 To 30		

	aaa = ada
	bbb = ada - 1

	For idEstr = Inizio To Fine Step nColpi
		nu(1) = FuoriX(EstrattoFT(idEstr,aa) + aaa,30)
		nu(2) = FuoriX(EstrattoFT(idEstr,bb) + bbb,30)			
		
			aNumInGioco(1) = nu(1)
			aNumInGioco(2) = nu(2)

If aNumInGioco(1) = aNumInGioco(2) Then
a01 = aNumInGioco(1)
b01 = aNumInGioco(2)
nmr = Array(a00,a01)

Call ImpostaGiocataFT(1,nmr,apta,nColpi,1,,1)

Scrivi "numeri estraz. generatrice  " & StringaEstrattiFT(idEstr,".") & "  al " & aa & "° estr. più " & aaa & "  al " & bb & "° estr. più " & bbb,True,True,3,1

Call GiocaFT(idEstr)

		 	End If				
Next	
		Call AvanzamentoElab(Inizio,Fine,idEstr)
		
		If ScriptInterrotto Then Exit For
		
	
	Call ScriviResocontoFT
Next		

End Sub