Inizio archivio superenalotto

[Cinzia27]

Ciao a tutti.
Ricerca sestina Superenalotto
con script
90.89.88.84.81.69) st 58 at 4
Controllo su formazioni veloci
90.89.88.84.81.69 st 58 at 10

Lo storico massimo coincide, il ritardo attuale no.
Qualcuno mi puoi chiarire l' incongruenza ?
Ecco lo script.

Sub Main()
Dim n(6)

w = 2

For a = 90 To 6 Step - 1
If ScriptInterrotto Then Exit For
For b = a - 1 To 5 Step - 1
If ScriptInterrotto Then Exit For
For c = b - 1 To 4 Step - 1
If ScriptInterrotto Then Exit For
For d = c - 1 To 3 Step - 1
If ScriptInterrotto Then Exit For
For e = d - 1 To 2 Step - 1
If ScriptInterrotto Then Exit For
For f = e - 1 To 1 Step - 1
If ScriptInterrotto Then Exit For


n(1) = a
n(2) = b
n(3) = c
n(4) = d
n(5) = e
n(6) = f

st = SerieStoricoSE (1,EstrazioniArchivioSE ,n,w)
If st < 60 Then
at = SerieRitardoSE (1,EstrazioniArchivioSE ,n,w)
cc = cc + 1
Messaggio FormatSpace(cc,4,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,4,1) & " at " & FormatSpace(at,4,1)

Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(n) & ")" & " st " & st  & " at " & FormatSpace(at,4,1)
End If

Next
Next
Next
Next
Next
Next

End Sub

Inoltre, come vanno conteggiate le estrazioni?
Con il lotto siamo a 10065. Col Superenalotto?
Grazie a chi potrà rispondermi.