Aiuto script sul metodo originale del Byron, Per chiunque voglia aiutarmi

Sub main()
'Metodo Byron proposto da Luana
'Script di Cinzia
Dim n(1),ru(1),estr(7),estr1(7),estr2(7),estr3(7),estr4(7),ps(1)
ps(1)=1
For r=1 To 11
If r=11 Then r=12
If r=4 Or r=6 Then ' 4 Genova 6 Napoli se le ruote sono Genova o Napoli
ru(1)=r
For es=EstrazioneFin-100 To EstrazioneFin-1 ' esamino le ultime 100 estrazioni
If Estratto(es,r,1)>0 Then
e1=Estratto(es,r,1):e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2)
e2=Estratto(es,r,2):e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3)
e3=Estratto(es,r,3):e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4)
e4=Estratto(es,r,4):e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)
e5=Estratto(es,r,5):ee1=Estratto(es+1,r,1):ee2=Estratto(es+1,r,2):ee3=Estratto(es+1,r,3):ee4=Estratto(es+1,r,4):ee5=Estratto(es+1,r,5)

estr(1)=e1:estr(2)=e2:estr(3)=e3:estr(4)=e4:estr(5)=e5:estr(6)=ee1:estr(7)=ee2

estr1(1)=e2:estr1(2)=e3:estr1(3)=e4:estr1(4)=e5:estr1(5)=ee1:estr1(6)=ee2:estr1(7)=ee3

estr2(1)=e3:estr2(2)=e4:estr2(3)=e5:estr2(4)=ee1:estr2(5)=ee2:estr2(6)=ee3:estr2(7)=ee4

estr3(1)=e4:estr3(2)=e5:estr3(3)=ee1:estr3(4)=ee2:estr3(5)=ee3:estr3(6)=ee4:estr3(7)=ee5

estr4(1)=e5:estr4(2)=ee1:estr4(3)=ee2:estr4(4)=ee3:estr4(5)=ee4:estr4(6)=ee5


sv1=Fuori90(e1+e2+e3+e4+e5)
If sv1<10 Then sv1=sv1+90

sv2=Fuori90(e2+e3+e4+e5+ee1)
If sv2<10 Then sv2=sv2+90

sv3=Fuori90(e3+e4+e5+ee1+ee2)
If sv3<10 Then sv3=sv3+90

sv4=Fuori90(e4+e5+ee1+ee2+ee3)
If sv4<10 Then sv4=sv4+90

sv5=Fuori90(e5+ee1+ee2+ee3+ee4)
If sv5<10 Then sv5=sv5+90

sv6=Fuori90(ee1+ee2+ee3+ee4+ee5)
If sv6<10 Then sv6=sv6+90

d1=Abs(e1-e2):d2=Abs(e2-e3):d3=Abs(e3-e4):d4=Abs(e4-e5):d5=Abs(e5-ee1):d6=Abs(ee1-ee2)

dd1=Abs(sv1-sv2):dd2=Abs(sv2-sv3):dd3=Abs(sv3-sv4):dd4=Abs(sv4-sv5):dd5=Abs(sv5-sv6)

sd=Fuori90(d1+d2+d3+d4+d5+d6)
sd1=Fuori90(dd1+dd2+dd3+dd4+dd5)

ssdd=Fuori90(sd+sd1)
ssvv=Fuori90(sv1+sv2+sv3+sv4+sv5+sv6)



x=Fuori90(ssdd+ssvv)
If x=90 Or x=77 Or x=76 Then ' Se la condizione è 90 oppure è 77 oppure è 76
casi=casi+1
Scrivi
Scrivi "Caso "&casi&" "& String(40,"="),1
Scrivi " Riga h=differenze numeri 1° riga"
Scrivi " Riga o=differenze somme colonne "
Scrivi
Scrivi " "&siglaruota(r)
Scrivi " "&FormatSpace(es,4,1)&" "&StringaEstratti(es,r)
Scrivi " "&FormatSpace(es+1,4,1)&" "&StringaEstratti(es+1,r)
Scrivi


Scrivi " a b c d e f g h"
Scrivi " "&StringaNumeri(estr)&" "&d1&" "&d2&" "&d3&" "&d4&" "&d5&" "&d6
Scrivi " "&StringaNumeri(estr1)
Scrivi " "&StringaNumeri(estr2)
Scrivi " "&StringaNumeri(estr3)
Scrivi " "&StringaNumeri(estr4)&" o"
Scrivi " "&sv1&" "&sv2&" "&sv3&" "&sv4&" "&sv5&" "&sv6&" "&dd1&" "&dd2&" "&dd3&" "&dd4&" "&dd5
Scrivi
Scrivi "somma differenze riga superiore "&sd
Scrivi "somma differenze riga inferiore "&sd1
Scrivi "somma differenze righe superiore + inferiore "&ssdd
Scrivi "somma delle somme delle colonne "&ssvv

ColoreTesto 2
Scrivi "Si è realizzata l' equazione perfetta "&ssdd+ssvv &" - il 1° futuro estratto è "&ee1&" ( 1° Estratto 2 estrazione ) + "&ssdd&" (somma differenze ) = ",0,0

n(1)=Fuori90(ee1 + ssdd)

Scrivi Format2(n(1)),1
ImpostaGiocata 1,n,ru,ps,150,1
Gioca es
'ColoreTesto 0
End If
End If
Next
End If
Next
ScriviResoconto
End Sub