title: When I write in a TextBox with Calcul behind then comes directly the Result in another TextBox
body: <p>I have one UserForm with 1 TextBox and 1 ComboBox.</p>
  
  <p>I firstly write in the ComboBox (per exemple Sarah)</p>
  
  <pre><code>Private Sub ComboBox1_Change()
  ThisWorkbook.Sheets("CalculSheet").Range("A2").Value = ComboBox1.Text
  End Sub
  </code></pre>
  
  <p>Then it makes some calcul in A3 like (If D2=Sarah Then D3=1)</p>
  
  <pre><code>Private Sub UserForm_Active()
  
  Application.ScreenUpdating = False
  ThisWorkbook.Worksheets("CalculSheet").Activate
  TextBox1 = Range("A3").Value
  
  End Sub
  </code></pre>
  
  <p>And I want that the Result comes directly in my TextBox1. It means that I write Sarah in the ComboBox1 and directly comes 1 in the TextBox1.</p>