87～90のFOR TK=0 TO 2からNEXT TKの処理が終わるとTKの値は3になります。DIM　TEKI[3]としていた場合は96行目でTEKI[3]を参照しようとするためSubscript out of rangeが発生します。