VB哪个函数能在输入指定长度的字符后自动执行下步

我要实现这种功能：

屏幕上出现一Textbox框（或其它框），用扫描枪输入一串字符（长度是一致的，比如12位数），在判断是12位后，程序即自动去运行下面的程序，如果不是12位数，则继续出现这个Textbox框，等待输入正确长度的字符。

上述功能该怎么实现，谢谢。 --------------------编程问答-------------------- private sub text1_change()
  if len(text1.text)=12 then
    '在此执行要执行的
  end if
end sub --------------------编程问答-------------------- private sub text1_change()
  if len(text1.text)=12 then
    NextObject.setfocus
  end if
end sub  --------------------编程问答-------------------- 谢谢！
另外，如果strcomp比较结果是一样的，那么输入框怎么叫它清空，并继续等待输入？
--------------------编程问答-------------------- if strcomp(....) then
text1=""
end if --------------------编程问答-------------------- 除了用if 语句判断，如果用do loop等循环语句的话，len这个函数不能用了，会陷入死循环。 --------------------编程问答-------------------- 解决了！谢谢大家

补充：VB ,  VBA