U$には" VHB"と4文字の文字列が読み込まれますね。 すなわち353行目のFOR命令でIは0から3まで変化します DIM CODE[要素数] プログラムの最初の方で配列変数の宣言をしていると思いますが 要素数が4未満だと宣言した配列変数より添え字が大きい配列変数を 使おうとするためSubsprict out of rangeとなります。