ざっと見ると… 2行目 $Aではなく、A$。 3行目 IF　A="A"　THEN～　ではなく 　　 　IF　A$=="A"　THEN 4行目の最後にENDを書き加える の3点を直せば動くと思います！