EXCEL VBA内 批量检测textbox值并赋值

Question

EXCEL VBA内。
例如，我手上有100个textbox，按照textbox1，---- textbox100排序。
用户输入值后，需要按照如下要求检测：
如果输入的值不是数，则将text赋值为9，
如果输入的值小于等于0，则将text赋值为9。
请问各位大神改如何批量操作，非常感谢。

Answer 1

这个要用到类，我就做了一个例子，窗体只做了10个textbox，知道怎么做就可以了