23～26行目を毎回通っているからですね。 十字キーが押されたとき(B2 AND 15)と、離されたとき(B3 AND 15)だけ通るようにすればいいかと。