title: set a cell values with 0 at left vba
body: <p>Im trying to introduce a value like "0001" to a cell with vba but all I set is 1 with no 000</p>
  
  <p>this is my code</p>
  
  <pre><code>    Dim iRow As Long
      Dim ws As Worksheet: Set ws = Worksheets(BD_PRODXSIST)
  
      With ws    
          .Range("A" &amp; iRow).Value = "0001"            
     End With
  
      Set ws = Nothing
  </code></pre>