title: Cant change active textbox and set focus after mouse click on it
body: <p>After second click on textboxes i cant write nothing after click on button &quot;1&quot;. Setfocus is working only at first click (<a href="https://i.stack.imgur.com/7DYme.jpg" rel="nofollow noreferrer">img</a>).
  Can You help?
  Greetings</p>
  <pre><code>    Private activeTextbox As Control
  
      Private Sub Textbox_sr_Enter()
      Set activeTextbox = Controls(&quot;Textbox_sr&quot;)
      End Sub
  
      Private Sub CommandButton1_Click()
      If Not activeTextbox Is Nothing Then
      activeTextbox.Text = activeTextbox.Text &amp; &quot;1&quot;
      activeTextbox.SetFocus
      End If
      End Sub
  
      Private Sub TextBox1_Enter()
      Set activeTextbox = Controls(&quot;TextBox1&quot;)
      End Sub
  
      Private Sub TextBox2_Enter()
      Set activeTextbox = Controls(&quot;TextBox2&quot;)
      End Sub
  
      Private Sub TextBox3_Enter()
      Set activeTextbox = Controls(&quot;TextBox3&quot;)
      End Sub
  </code></pre>