Sub Main
Dim a,b
Dim es,Ini,fin
fin = EstrazioneFin
For es = fin - 5 To fin
a = MassimoE(es,1) '<---- Individua il maggiore degli estratti
b = MinimoE(es,1) '<---- Individua il minore degli estratti
Scrivi DataEstrazione(es) & " " & SiglaRuota(1) & " " & StringaEstratti(es,1),1,0
Scrivi " il maggiore é " &(a),1,0,,2
Scrivi " il minore é " &(b),1,,,1
Next
End Sub