ASC,CHR$関数を使えば短くできそう