title: Keep leading zero's intact when added to .CSV with I/O enabled
body: <p>The title is messy, my apologies.  Not sure the best way to word that, so if you a better suggestion, please.  </p>
  
  <p>The script I have works, but I'm having trouble keeping the leading zeros. I have tried to insert the .NumberFormat = "@", but I can only do that after I have created the file.  I also tried adding the "'" at the leading zero when it puts the text into the file and it does add it, but doesn't apply it.  It just keeps the "'" in front of the zero.</p>
  
  <p>Suggestions?  Thank you in advance!</p>
  
  <p>Original number: 00099999 ---- 
  Currently adds to file as: 99999 ----
  If I add "'", it adds to file as: '00099999</p>
  
  <p>Here's the snippet:</p>
  
  <pre><code>FName = i &amp; "_INPUT" &amp; ".csv"
  
  If FName = False Then
    Exit Sub 'user cancelled
  End If
  FNum = FreeFile
  Open FName For Output Access Write As #FNum
    For Each ir In range
      If ir &gt; 0 Then
        strtest = ir
        newnum = ExtractNumber(strtest)
      End If
  
      S = newnum &amp; Chr(9) 'build each line
      S = Left(S, Len(S) - 1) 'remove trailing tab
  
      Print #FNum, S 'print to file
  
    Next ir
    Close #FNum
  End If
  </code></pre>