Oskarさんのおかげでプログラムが短くなりました。あと、INSTRの使い方が理解出来ました。アドバイスありがとうございました。