Aggiornare uno script per SpazioMetria

[antoR]

Salve a tutti, vorrei se possibile il vostro aiuto per modificare/aggiornare uno script per il superenalotto che ho trovato in rete. In pratica lo script trova le uscite dei numeri selezionati, ma li evidenzia sulle estrazioni, e va bene a me servirebbe però anche la statistica, cioè quanti punti 2,3,4,5,6. Le mie conoscenze sono nulle per gli script per cui mi rivolgo a voi. Allego lo script. Grazie a tutti e buona serata
Sub Main()
Dim Nn(6)
QT = InputBox("Quanti Numeri","Numeri",10)
QN = InputBox("QUANTE ESTRAZIONI",,182)
ScegliNumeri(Nn)
Ini = EstrazioniArchivioSE - QN
Fin = EstrazioniArchivioSE
Scrivi "........ Da " & GetInfoEstrazioneDL(Ini) & " a " & GetInfoEstrazioneDL(fin),1
'Scrivi
Scrivi String(100,"="),1
ColoreTesto 1
Scrivi "Evidenzia numeri giocati sulla combinazione Superenalotto ",1
ColoreTesto 0
Scrivi String(100,"-")
ColoreTesto 2
Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
ColoreTesto 0
Scrivi String(44,"-"),0,0
Scrivi " JO " & "SS " & "-------------------------------------------------"
For Es = Ini To Fin
tot = 0
Scrivi FormatSpace(GetInfoEstrazioneSE(es),27),0,0
'Scrivi "[" & Es & "] ",0,0
For P = 1 To 6
ColoreTesto 1
For x = 1 To Qt
If EstrattoSE(Es,P) = Nn(x) Then
ColoreTesto 2
tot = tot + 1
End If
Next
Scrivi Format2(EstrattoSE(Es,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(qt) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena ",1,- 1,3
Else
If Tot = Int(qt - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -1 ",1
Else
If Tot = Int(qt - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -2 ",1
Else
ColoreTesto 7
If Tot <> Int(qt) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0
Next
Scrivi String(100,"-")
Scrivi
Scrivi "-------------------------------- Dettaglio ultime estrazioni scelte --------------------------------"
Call ImpostaGiocataSE(1,Nn,1,QN)
ScriviResocontoSE
End Sub