それか、僕のコメントの FOR I=0 TO LEN(A$)-1 のところを FOR I=1 TO LEN(A$) にして、 A0$=A$[I] のところを A0$=MID$(A$,I,1) にすればできると思います。できなかったらすいません。