Nel mio archivio ho trovato questi due,il primo che somma degli estratti con dei numeri fissi il secondo invece fa la somma di due estratti il tutto rigorosamente a scelta da provare finche' non si trova la combinazione migliore 
Ciauz
Sub main()
Dim am(1),nr(6),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2)
posta(1)=1
oste(2)=1
ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",8264))
im=CInt(InputBox("Qual'è l'indice mensile ?","Indice Mensile",1))
b=CInt(InputBox("Posizione estratto ?","Ambata",2)) '<--- Ambata
a=CInt(InputBox("Ruota di calcolo ?","Ambata",4))
c=CInt(InputBox(" + Numero fisso ?","Ambata",6))
x1=CInt(InputBox("Posizione estratto?","1° abbinamento",1)) '<---- 1° abbinamento
x2=CInt(InputBox("Ruota di calcolo ?","1° abbinamento",1))
x3=CInt(InputBox(" + Numero fisso ?","1° abbinamento",31))
y1=CInt(InputBox("Posizione estratto?","2° abbinamento",1)) '<---- 2° abbinamento
y2=CInt(InputBox("Ruota di calcolo ?","2° abbinamento",2))
y3=CInt(InputBox(" + Numero fisso ?","2° abbinamento",37))
z1=CInt(InputBox("Posizione estratto?","3° abbinamento",3)) '<---- 3° abbinamento
z2=CInt(InputBox("Ruota di calcolo ?","3° abbinamento",5))
z3=CInt(InputBox(" + Numero fisso ?","3° abbinamento",10))
w1=CInt(InputBox("Posizione estratto?","4° abbinamento",4)) '<---- 4° abbinamento
w2=CInt(InputBox("Ruota di calcolo ?","4° abbinamento",10))
w3=CInt(InputBox(" + Numero fisso ?","4° abbinamento",51))
ru1=CInt(InputBox("1ª ruota di gioco ?","1ª Ruota",5)) '<--- 1ª Ruota
ru2=CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",6)) '<--- 2ª Ruota
k=CInt(InputBox("Colpi di gioco ?","Colpi",13))
For es=ax To EstrazioneFin : Messaggio es
If IndiceMensile(es)=im Then
cc=cc+1
Scrivi
ColoreTesto 2 :Scrivi " *********************** Previsione ricavata alla "&(im)&"° estrazione del mese ************************* ",1
Scrivi"Pronostico n° " & Format2 (cc),1
ColoreTesto 0
Scrivi
am(1)=Fuori90(Estratto(es,a,b)+c)
abb(1)=Fuori90(Estratto(es,x2,x1)+x3)
abb(2)=Fuori90(Estratto(es,y2,y1)+y3)
abb(3)=Fuori90(Estratto(es,z2,z1)+z3)
abb(4)=Fuori90(Estratto(es,w2,w1)+w3)
nr(1)=Estratto(es,a,b)
nr(2)=Estratto(es,x2,x1)
nr(3)=Estratto(es,y2,y1)
nr(4)=Estratto(es,z2,z1)
nr(5)=Estratto(es,w2,w1)
Scrivi b&"° "& Left(NomeRuota(a),9)&".."&nr(1)& " + "&c&_
" Ambata ---> "&(am(1))&"" : Scrivi
Scrivi x1&"° "& Left(NomeRuota(x2),9)&".."&nr(2)&" + "&x3&_
" Abbinamento ---> "&(abb(1))&""
Scrivi y1&"° "& Left(NomeRuota(y2),9)&".."&nr(3)&" + "&y3&_
" Abbinamento ---> "&(abb(2))&""
Scrivi z1&"° "& Left(NomeRuota(z2),9)&".."&nr(4)&" + "&z3&_
" Abbinamento ---> "&(abb(3))&""
Scrivi w1&"° "& Left(NomeRuota(w2),9)&".."&nr(5)&" + "&w3&_
" Abbinamento ---> "&(abb(4))&""
Scrivi Chr(10)&"Cinquina: " &am(1)&"."&abb(1)&_
"."&abb(2)&"."&abb(3)&"."&abb(4)&""
Scrivi : ruote(1)=ru1 : ruote(2)=ru2
ImpostaGiocata 1,am,ruote,posta,k
ab(1)=am(1)
ab(2)=Fuori90(Estratto(es,x2,x1)+x3)
ImpostaGiocata 2,ab,ruote,poste,k
ab(2)=Fuori90(Estratto(es,y2,y1)+y3)
ImpostaGiocata 3,ab,ruote,poste,k
ab(2)=Fuori90(Estratto(es,z2,z1)+z3)
ImpostaGiocata 4,ab,ruote,poste,k
ab(2)=Fuori90(Estratto(es,w2,w1)+w3)
ImpostaGiocata 5,ab,ruote,poste,k
acc(1)=am(1) : acc(2)=abb(1) : acc(3)=abb(2)
acc(4)=abb(3) : acc(5)=abb(4)
ImpostaGiocata 6,acc,ruote,poste,k
Gioca es : Scrivi
Scrivi : Scrivi String(70,151)
End If
Next
ScriviResoconto
ColoreTesto 2 : Scrivi "•damper•",1
End Sub
*************************************************************
Sub main()
Dim am(1),nr(10),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2)
posta(1)=1
oste(2)=1
ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",7864))
im=CInt(InputBox("Qual'è l'indice mensile ?","Indice Mensile",1))
a=CInt(InputBox("1° Ruota di calcolo x Ambata?","Ambata",5)) '<--- Ruota
b=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",4)) '<--- Ambata
c=CInt(InputBox("2° Ruota di calcolo x Ambata
