validating事件
If e.sender.combolist.contains(e.sender.text) Then
msgbox("符合")
Else
msgbox("不符合")
e.cancel = true
End If