あ、違う何がしたいのか分かった。 INPUT ANGO$ FOR I=0 TO LEN(ANGO$)-1 ?ASC(MID$(ANGO$,I,1))-64;" "; NEXT これだけで近しい事は出来るかと思われます。