Aiuto listato metodo cabalistico

Sub main()
Dim ruote(2),nu2(3),poste(3)
poste(2)=1:poste(3)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",200)
k=InputBox ("per quanti colpi?","colpi di gioco",3)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To fin
If Indicemensile(es)=6 Then
x=PrimaMesePRec(es)

Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
casi=casi+1:Scrivi String(69,"=")&" by chinonlofa",1
Scrivi "metodo superlotto x lotto69 "

Scrivi String(68,"-")
Scrivi " 5° Estratto su Pa+32 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 32 / A "
Scrivi " 5° Estratto su Pa+70 della 3^ mese prec. "&DataEstrazione(x+2)& " [ "&Estratto(x+2,7,5)&" ] + 70 / B "
Scrivi " 4° Estratto su Na+76 della 10^ mese prec. "&DataEstrazione(x+9)& " [ "&Estratto(x+9,6,4)&" ] + 76 / C "
Scrivi String(69,"-")&" caso n° "&(casi)
ruote(1)=11:ruote(2)=12:co=0

a=Fuori90(Estratto(x+2,7,5)+32)
b=Fuori90(Estratto(x+2,7,5)+70)
c=Fuori90(Estratto(x+9,6,4)+ 76)


nu2(1)=a:nu2(2)=b :nu2(3)=c

co=co+1
ImpostaGiocata co,nu2,ruote,poste,k



Gioca es

End If
Next
ScriviResoconto
End Sub


Function PrimaMesePrec(es)
For x= es To es-25 step-1
If Cadenza(Distanza(Mese(es),Mese(x)))=1 And Indicemensile(x)=1 Then
PrimaMesePrec=x
Exit For
End If
Next
End Function