怎么使两个text都符合要求后再执行各自语句

如何使两个text都符合要求后再执行各自语句

    Text3.Text = ""
    Text3.SetFocus
    Exit Sub
  End If
  If (Not IsNumeric(Text4.Text)) Or (Val(Text4.Text) < 1) Then
    MsgBox "定时时间输入错误！", vbExclamation, "警告"
    Text4.Text = ""
    Text4.SetFocus
    Exit Sub
  End If
  '你需要执行的代码

[解决办法]
直接在text控件的lostfocus事件中判断内容是否符合要求, 然后可以把判断结果写在tag属性里面,比如:
sub text1_lostfocus()
text1.tag=isnumeric(text1.text)
if not text1.tag then msxbox"please input a munber"
end sub
...
旧酱紫,后面的判断只需要写成: if text1.tag and text2.tag then.....
这样的代码多漂亮啊