これはRDQ$という文字列変数に数字の1を足したから、タイプミスマッチ、変数型が合わないというエラーになってます。 このプログラムなら$は全部取って、文字列を数値に変換している11行も取ってしまって良いと思います。