Switch text box after certain number of characters entered?

can i do that, ? make the program go to the next box after like, 2 characters are entered?

Code:

---

Private Sub Text_Change()
If(Len(Text1) = 2) Then
  Text2.SetFocus
Endif
End Sub

---