間違えました。 STR$(I)→STR$(B[I])に直して下さい。