220行目、K[U] の U の値が 101 になってエラーするようです。 DIM K[101] (※要素数は101) なので U の範囲は、0～100 (0始まりなので添え字の番号は1つずれる)の筈です。 U の上限値のチェックをわすれているか、101迄OKとしてしまっているのではないかと。 確認してみて下さい。