Sub Main()
Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3),ru(1)
posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",30))
If quante = False Then Exit Sub
dist = CInt(InputBox("Quale Distanza",,30))
rit...