限制文本框输入字符方法的漏洞问题

关于大家对限制文本框输入字符方法基本上是在keypress事件中实现，这样实现起来很方便，它是检测键盘输入的事件，确实能实现限制文本框输入的字符类型，但是如果我们不是靠键盘在文本框中输入字符，而是用复制的方式将字符粘贴进去，这样就会失去对文本框字符的限制了！请问大家有没有更好的方法的问题

以下方法都可以实现限制文本框输入字符：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If IsNumeric(Text1) = False Then
MsgBox “输入错误”
End If
End Sub
或——
Private Sub Text1_Change()
If IsNumeric(Text1) = False Then
MsgBox “输入错误”
End If
End Sub
或——
Private Sub Text1_LostFocus()
If IsNumeric(Text1) = False Then
MsgBox “输入错误”
End If
End Sub
或——
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IsNumeric(Text1) = False Then
MsgBox “输入错误”
End If
End Sub
‘中间的限制程序可按要求自已编写。