配列を使わないでMID$を使いました。