SetFocus to newly visible TextBox

[DavidPC]

I have a UserForm with the first TextBox that if any text is entered then two new textbooks become visible. The problem is that I cannot get the Focus to move to the first of these just visible Textboxes. I have tried many things but unsuccessfully. Any help or ideas would be welcomed.
My simplified code is:

Option Explicit

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "" Then
TextBox2.Visible = True
TextBox3.Visible = True
End If
End Sub


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "TextBox2_Exit ", TextBox2
End Sub


Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "TextBox3_Exit ", TextBox3
End Sub


Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Debug.Print "TextBox4_Exit ", TextBox4
End Sub


Private Sub CommandButton1_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox2.Visible = False
TextBox3.Visible = False
TextBox1.SetFocus
End Sub

Thanks

 

[mikerickson]

Have you tried putting the visibility code in the Change event?

Private Sub TextBox1_Change()
    TextBox2.Visible = (TextBox1.Value <> "")
    TextBox3.Visible = (TextBox1.Value <> "")
End Sub

 

[DavidPC]

Have you tried putting the visibility code in the Change event?

Private Sub TextBox1_Change()
    TextBox2.Visible = (TextBox1.Value <> "")
    TextBox3.Visible = (TextBox1.Value <> "")
End Sub

Thanks for your quick reply. That works fine in my simplified test so I'll now try it in the full code.
I have been trying for hours to fix this so I really appreciate your help.

David

 

[DavidPC]

Yes it works in my full code.
How did you know this, is there something i've missed in learning VBA?
Thanks again
David