おそらく 関数SPCHASEを使っているところの 引数が不正なのでは。 111〜117行目では エラーはないように見えます