per il momento mi è venuto così
cerca nelle ultime 5 estrazioni tutti gli ambi di figura usciti sulle 10 ruote da BARI-VENEZIA
Option Explicit
Sub Main
Dim nr(5)
Dim e,fine,Inizio,r,p,f,q
fine = InputBox("Estraz.n.",,EstrazioneFin)
Inizio = fine - 5
''''
For Inizio = Inizio + 1 To fine
Scrivi "--------------------------------------------",1
For r = 1 To 10
'''carico 5 numeri estratti dell'estrazione (x)
ReDim fig(9,2)
For p = 1 To 5
nr(p) = Estratto(Inizio,r,p)
f = Figura(nr(p))
fig(f,1) = fig(f,1) + 1
fig(f,2) = fig(f,2) & Format2(nr(p)) & "."
Next
'''elenca solo quelle con 2 nr.di medesima figura
For q = 1 To 9
If fig(q,1) > 1 Then
Scrivi SiglaRuota(r) & "...estraz.n." & Inizio & "/" & DataEstrazione(Inizio) & "..." & fig(q,2)
End If
Next
Next
Next
End Sub