Aiutino! grazie!

[herat]

Salve, mi servirebbe modificare questo script, preso dal forum, che ho leggermente modificato
nell'output vorrei che ordinasse i risultati per ritardo storico da maggiore a minore e per ritardo attuale da maggiore a minore

'Ricerca di Gruppi di Ambi Consecutivi con Capogioco su Ruota: Scritto da Gam il 20.12.2019 - v. 1.0
Sub Main()

Dim ruota1, ruota2
Dim st,at,capogioco,eIni,Efin,LivArch,cat,Gruppo,Att,Sto,Freq,Gr
Dim ambo(2),NumAmbi,PrimoEl,UltimoEl,conta

NumAmbi = 2' numero ambi consecutivi
eIni = EstrazioneFin-2200
Efin = EstrazioneFin
LivArch = 0

For capogioco = 1 To 90 'impostare 90 per tutti i capigioco
If ScriptInterrotto Then Exit Sub
For r = 6 To 6
For r1 = 10 To 10
ruota1 = r
ruota2 = r1
For k = 1 To 90 - NumAmbi + 1
If k = capogioco - NumAmbi + 1 Then k = k + NumAmbi
If k > 90 Then Exit For

Messaggio("NumeroAmbi " & NumAmbi & " Capogioco " & capogioco & " " & SiglaRuota(r) & " " & k)

For x = 0 To NumAmbi - 1
ambo(1) = capogioco :ambo(2) = k + x
PrimoEl = Format2(k)
UltimoEl = Format2(k + NumAmbi - 1)
If capogioco <> k + x And (PrimoEl < 91 And UltimoEl < 91) Then Call AddNumeriToGruppoStatistico(ambo,ruota1) 
If capogioco <> k + x And (PrimoEl < 91 And UltimoEl < 91) Then Call AddNumeriToGruppoStatistico(ambo,ruota2) 
conta = conta + 1
Next
If conta = NumAmbi Then Call StatisticaGruppoFormazioniTurbo(2,Att,Sto,Freq,Gruppo,eIni,Efin,LivArch) :Gr = Gr + 1
conta = 0

If Sto > 0 Then 'impostare un valore per limitare il numero di casi di ricerca
'Scrivi Gruppo
If Att >= Sto Then
ColoreTesto 2
Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000") & " ***"
ColoreTesto 0
Else
Scrivi "Gruppo " & FormattaStringa(Gr,"00000") & " di " & Format2(NumAmbi) & " Ambi " & SiglaRuota(r) & " " & "[" & Format2(capogioco) & " " & PrimoEl & "-" & UltimoEl & "]" & " Sto " & FormattaStringa(Sto,"0000") & " Att " & FormattaStringa(Att,"0000")
End If
End If
PrimoEl = ""
UltimoEl = ""
Next
Next
Next
Next
Scrivi TempoTrascorso
End Sub