Strange. The following code works fine.
Code:
Private Sub Text1_Click()
    Text2.SetFocus
End Sub
Post the code that you are getting an error on. Maybe it's in error in your code