non va ergon da zero, ecco perche lo scritto in quella maniera

cmq sto procedendo con la via piu' lunga , cio cosi

codice:
        List3.Clear
        If rb1 & rb2 = True Then
        If rc1 & rc2 = True Then
        sb = rb1 + rb2
        sc = rc1 + rc2
        sbc = sb + sc
        List3.AddItem " bari " & " cagliari" & CStr(sbc)
        End If
        End If
questo lo ripeto per 45 , ciè incrociando tutti idieci valori
rb1 "" rb2
rc1 "" rc2
rf1 "" rf2
rg1 "" rg2
rm1 "" rm2
rn1 "" rn2
rp1 "" rp2
rr1 "" rr2
rt1 "" rt2
rv1 "" rv2



almeno funziona