あ、Ｉを宣言してない。 ２行目、 DIM Ｉ, ROW=LEN(A$) DIV 25 にしてくださいね。