Facile facile x chi sa fare

[Marcorun]

Un aiuto per questo semplice script : vorrei che visualizzasse in output , solo le giocate in corso .
GRAZIE!

Sub Main
Dim p1,p2,p3,p4,p5,p6,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quinto_num,sesto_num
Call ImpostaArchivio10ELotto(1)
ini = EstrazioneFin - 50
   fin = EstrazioneFin
   For es = ini To fin
   AvanzamentoElab ini,fin,es
Messaggio DataEstrazioneDL(es)
p1 = EstrattoDL(es,4)
p2 = EstrattoDL(es,5)
p3 = EstrattoDL(es,7)
p4 = EstrattoDL(es,8)
p5 = EstrattoDL(es,10)
p6 = EstrattoDL(es,11)

Primo_num = Fuori90(p1)
Secondo_num = Fuori90(p2)
Terzo_num = Fuori90(p3)
Quarto_num = Fuori90(p4)
Quinto_num = Fuori90(p5)
sesto_num = Fuori90(p6)

ReDim aNumeri(10)
aNumeri(1) = Primo_num
aNumeri(2) = Secondo_num
aNumeri(3) = Terzo_num
aNumeri(4) = Quarto_num
aNumeri(5) = Quinto_num
aNumeri(6) = sesto_num

Call ImpostaGiocataDL(1,aNumeri,1,50,4)
Scrivi "---------------------------------------------------------------------------------------------------------------------------------------",,,,1
Call GiocaDL(es)
Next
ScriviResocontoDL
End Sub