Come da oggetto...con la possibilità di scegliere la Ruota...e non di default solo quella di Bari.
Sub Main() Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
es = InputBox("Inserisci 0 ultima, 1 prima, ....",,0)
nmc = InputBox("Numero mesi:",,31)
perc =...