11行目にGOTO @Bを入れているので、すぐ下の12行目の処理が行われて無いのが原因です。 あと3行目でDIMによる配列定義を行っていますが、その上にラベルがあるので「2重に定義しようとした」エラーが出るのではないかと思います。 ※処理の流れが分からない時はフローチャートという物を利用するのです・・・するのです・・・ググるのです・・・