Aiuto listato generico

Sub Main()
       Dim nu1(10),nu2(10),ruote(4)
       Dim posta(1),poste(3)
       Dim nn(3),ruota(4),n(2)
       posta(1) = 5
       poste(2) = 3
       poste(3) = 1.5
       ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",100)
       k = InputBox("per quanti colpi?","colpi di gioco",14)
       ini = EstrazioneFin-ce
       fin = EstrazioneFin
       Scrivi " lotto69(script by chilofa)",1
       Scrivi String(80,"="),1
       Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
       For es = ini To EstrazioneFin
               Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
               For r1 = 1 To 12 'con nz
                       If r1 = 11 Then r1 = 12 'con nz
                       For p1 = 1 To 4
                                p2 = p1+1
                                       a = Estratto(es,r1,p1)
                                       b = Estratto(es,r1,p2)
                                 ok1=Fuori90(a+b)
                                               
                                               For r2 = r1+1 To 12 'con nz
                                                       If r2 = 11 Then r2 = 12 'con nz
                                                       If r2 <> r1 Then
                                                               For p3 = 1 To 4
                                                        For p4 =p3+ 1 To 5
                                                                       c = Estratto(es,r2,p3)
                                                                       d= Estratto(es,r2,p4)
                                                      ok2=Fuori90(c+d)

                                                          If ok1= 80 And   ok1=ok2 Then

                                                                       If (p1=p3 Or  p1 = p4 Or  p2 = p3 Or  p2=p4) Then
                                                                               casi = casi + 1
                                                                               Scrivi String(65,"=") & " scrip by chilofa",2
                                                                               Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                                                                               " ] [ " & Format2(a) & "." & Format2(b) & " ] in " &(p1) & "/" &(p2) & "^ pos."
                                                                               Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                                                                               " ] [ " & Format2(c) & "." & Format2(d) & " ] in " &(p3) & "/" &(p4) & "^ pos."
                                                           Scrivi  " somma comune degli ambi =80   "  
                                                                               Scrivi String(68,"-") & " caso n° " & casi
                                                                               ruote(1) = r1
                                                                               ruote(2) = r2
                                                                       
                                                 
                                                                               ruota(1) = 11
                                                                               co = 0
                                                                               

                                                           nu1(1) = 80
                                                                               nu1(2) = a
                                                                               nu1(3) = b

                                                                               nu1(4) = c
                                                                               nu1(5) = d

                                                                               co = co + 1
                                                                               ImpostaGiocata co,nu1,ruote,poste,k
                                                                               nu2(1) = 80
                                                                               nu2(2) = Fuori90(Trasposizione(a,b))
                                                                               nu2(3) = Fuori90(Trasposizione(c,d))
                                                                               nu2(4) = Fuori90(Trasposizione(a,d))
                                                                               nu2(5) = Fuori90(Trasposizione(c,b))


                                                                               co = co + 1
                                                                               ImpostaGiocata co,nu2,ruote,poste,k
                                                                               co = co + 1
                                                                               ImpostaGiocata co,nu2,ruota,poste,k
                                                                               Gioca es
                                                                       End If
                                                               End If
                                                       Next
                                       Next
                               End If
                       Next
               Next
       Next
Next
Scrivi String(65,"=") & " scrip by chilofa",2
ScriviResoconto
Scrivi "lotto69 (script by chilofa)",1
End Sub