エラーはDuplicate variableでした。 DIM命令はサブルーチンの中ではなくプログラムの始めに記述してください。