高手进来帮忙！！！！

Private Sub fk_pc_syoukei_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And KeyAscii <> 46 And (KeyAscii < 48 Or KeyAscii > 57) Then
         KeyAscii = 0
    MsgBox "不正确", vbInformation + vbOKOnly, "警告"
    End If
End Sub这是一段不允许textbox输入字符的代码现在在一个画面上有N个textbox需要这样设置，请问有什么方法可以不用一个个textbox去设置有什么循环的方法去设置？？？？
                                                              谢谢