A$[0]=CHR$(2)+A$[0] OK FOR I=0 TO LEN(A$)-1:?ASC(A$[I]):NEXT I 2　←これが挿入される 1　←以降、１つずつずれる 0 0 0 0 OK