title: Reduce string and keep zeroes intact
body: <p>I am working with cell values in a format of "XXXX-000-000-000".  </p>
  
  <ul>
  <li>Everything before the first hyphen needs to be removed, which I can do.</li>
  <li>The rest of the string needs to be reduced to whole numbers, with the hyphens, and any extra zeroes removed.</li>
  </ul>
  
  <p>I'm having trouble keeping the zeroes in the right places.</p>
  
  <ul>
  <li>AD12-002-020-34  Needs to look like this:  2-20-34</li>
  <li>CA1-002-101-001  Needs to look like this:  2-101-1</li>
  <li>AD12-002-020-10  Needs to look like this:  2-20-10</li>
  </ul>
  
  <p>For example: </p>
  
  <pre><code>dim ir as range
  
  ir = "AD12-002-020-100"
  
  ir1 = InStr(ir, "-")
  ir2 = InStrRev(ir, "-")
  ir.Offset(0, 1) = Mid(ir, ir1 + 1, ir2 - ir1 + 3)
  </code></pre>
  
  <p>Which gives me: 002-020-100</p>
  
  <p>Suggestions? Thank you in advance!</p>