COBCH1740 Subscripted item invalid in this context