5文字ずつ調べると言うことでよろしければFOR～NEXTで 増分を5にしてMID$関数で5文字ずつ取り出して調べる方法が 良いかと思います。 FOR I=0 TO LEN(A$)-1 B$=MID$(A$,I,5) IF B$="あいうえお" THEN C0=C0+1 IF B$="ああうえお" THEN C1=C1+1 NEXT