1つ付け足します。 IF B==1THEN　　　の、 ==1とTHENの間にスペースが必要です。