まずはDATAに対してREADが少ないですね READ M$ とした時、 DATA " BB" '① DATA "B B" '② DATA "BB " '③ ①しか読まれません（ちなみにもう一度READを使うと②が読まれます） この場合、M$には" BB"が入ります んで、次に、文字を置き換えるのは、MID$関数でM$の中の文字を一文字づつ取り出し比較するとよいでしょう M$の文字列をイッキに置換する方法もあります（SUBST$関数）