关于焦点的问题

[xuco]

看下面代码:
Private Sub Text1_LostFocus()
If Len(Text1.Text) <> 4 Then
MsgBox "fdsfds"
End If
Text1.SetFocus
End Sub

Private Sub Text2_LostFocus()
If Len(Text2.Text) <> 4 Then
MsgBox "lost focus"
End If
Text2.SetFocus
End Sub
运行后焦点在第一个文本框,在第一个文本框输入字符,若字符不等于4,当我点第二个文本框后,就弹出text1失去焦点的警告窗口,我点了确定后,若text2里的字符也不等于4,又弹出text2失去焦点的警告窗口,我点了确定后,又弹出text1失去焦点的警告窗口,如此死循环。怎么解决，请高手指教，谢谢

[of123]

Private Sub Text1_Validate(byval cancel as boolean)
If Len(Text1.Text) <> 4 Then
MsgBox "fdsfds"
cancel = true
End If
End Sub

Private Sub Text2_Validate(byval cancel as boolean)
If Len(Text2.Text) <> 4 Then
MsgBox "fdsfds"
cancel = true
End If
End Sub