podrias usar "select case" encadenados
Cita: select case linea
case "L01S":
select case tubo
case "A": codoptima = 35
case "B": .....
end select
case "algo extra"
otro select case
otra serie de condiciones
se acaba el case
y a correr
ojala se entienda la idea