如何限制TEXT中只能录入偶数的长度！

Question

Text1.text
这个文本框只能输入数字，但输入的数字长度不能为奇数，只能为偶数，如：2，4，6，8，10，等
例：12------2个字符，是偶数
    2545----4个字符，是偶数
如果输入奇数长度的话，系统就会提示错误！
    3------1个字符，不成立
    123----3个字符，不成立
或是用什么函数检测输入字符的长度除以2后，如果有余额则是奇数，如果没有余额则是偶数，这个函数该怎么使用呢？

Answer 1

自己给自己回答：
if len(text1.text) mod 2=0 then
   msgbox"你输入的是偶数长度！"
else
   msgbox"你输入的是奇数长度！"
endif

Answer 2

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Trim(Text1.Text)) Mod (2) = 0 Then
Else
MsgBox "奇数"
End If
End Sub
不过这样，在输入的过程中，会总弹出“奇数”
可以，在确定输入TEXT完毕的情况下（如加一个按钮，或按回车），进行判断是否为奇数或偶数