KEY 5,CHR$(…) で一旦 KEY 5とかに設定して CHR$(…)の部分をKEY 5で入力された文字(エディタ上では四角に×で読めませんが)に置き換えれば短くなりますよ。 KEYには128文字迄いれられるので CHR$()で一文字ずつ出はなく、ある程度まとめた文字列でもOK。 ただし漢字がダイアログで見ないと見分けられないので修正は不便になりますw