Ciao.. senza cambiare nulla, mi son permesso di aggiustare qualche riga... solo x logica ho spostato qualche "if..."
Sub Main
Dim ambata1(1),ambo1(2),ambo2(2),ambo3(2),calc(4),ruota(2),ruote(4),posta(1),poste(2)
Dim ambo4(2),rs
Dim a,b,c,d,x,v,z,p1,p2,p3,es
Dim r1,r2,clp,caso...