title: Listbox not displaying proper vlookup result
body: <p>I am trying to execute this part of the code.</p>
  
  <pre><code>Do While ws2.Cells(i, "A").Value &lt;&gt; Empty
      arr2(k, j) = ws2.Cells(i, "A").Value
      arr2(k, j + 1) = Application.VLookup(ws2.Cells(i, "A").Value, ws.Range("B:K"), 2, False)
      formula = ("VLOOKUP($A" &amp; i &amp; "&amp;" &amp; User.TextBox1.Value &amp; ", CHOOSE({1,2}, 'DATA'!$B$4:$B$7669&amp;'DATA'!$D$4:$D$7669,'DATA'!$E$4:$E$7669),2,0)")
      q = CStr(Evaluate(formula))
      arr2(k, j + 2) = q
      k = k + 1
      i = i + 1
  Loop
  </code></pre>
  
  <p>I don't know why, but I get different results at times, without making any changes. Sometimes it shows error for the vlookup value but sometimes it shows correct number. What can I do to fix this problem?</p>