IF B$=="00" AND C==0 THEN ～ を IF B$=="000" THEN ～ と記述できるので少し見やすく出来ると思います。