vb文本框只允许输入18位数字，怎么写代码？

首先，允许输入任何值，然后按回车，TAb建或者其选择他对象时，出现错误信息。
本人只知道回车键和Tab建，但是不知道选择其他任何对象代码怎么写？

选择其它对象时，文本框将失去焦点，因此可以用LostFocus事件来执行你要的操作：
Private Sub Text1_LostFocus()
if len(text1.text)<>18 then
 msgbox "必须是18位！"
end if
if isnumeric(text1.text)=false then
 msgbox "只能输入数字！"
end if
End Sub

'这个程序用不着command来做判断 看这个程序 只需添加一个textbox控件即可 private sub text1_keypress(keyascii as integer) if keyascii < 48 or keyascii > 57 then keyascii = 0 end sub