部分2の最後に if instr(cmt$, "～")>=0 then (cmt$に "～" が入ってたときの処理) endif を追加