那位大哥给帮小弟一把，解决个小问题！！

19841120

　　　　　　矩形

　　　　　长度　　　　　宽度

中心点　　　　拾取　　　

确定　　　　　　　　取消　

本人作了像上面的一个小东西，不过还是有几个问题请大家给指点一下子，就是在输入数据时，如果误输入了非数字数据运行的话，会造成CAD的错误，还请那们高手给小弟指点一下，给写一下数字错误处理的程序段，就是只能在文本框内输入数字，如果输入其它的字符将出现警告，小弟在这里先谢了！！

wylong

在“确定”按钮的click事件的前面加入对文本框内字符的判断，是数字通过；否则返回。 If Not IsNumeric(Text1.Text) Then
Exit Sub
End If