求助，如何失去焦点后重新获得焦点？

sinotrust

大侠们好，我设了一个文本框，用于接收数据，当输入的数据错误时，出现提示对话框，然后想让这个文本框再重新得到焦点。
可是不论我怎么直接设，都无法让这个文本框获直接获得焦点，我只能走了一个迂回，
，先让其他控件得到焦点，再让这个文件框重新得到焦点。
我感觉做得有点麻烦，请问大家有没有更好的办法。以下是我的代码
If IsNumeric(Me.Text1.Value) = False Then
        MsgBox "请输入正确的日期格式,例如 2010 ", , "输入年份错误"
        Me.Text2.Enabled = True
        Me.Text2.SetFocus
        Me.Text1.SetFocus
        Me.Text2.Enabled = False