过程声明与同名事件或过程的描述不匹配
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
Case 48 To 57
Exit Sub
Case Else
KeyAscii = 0
End Select

End Sub

这段话在excel vba里面没有问题，为何拷贝到vb里面就报错这个了呢？谢谢
[解决办法]
ByVal KeyAscii As Integer
[解决办法]
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

改为

Private Sub TextBox2_KeyPress(ByVal KeyAscii As Integer)


[解决办法]
应该是你复制了过去 本身本来就有这个事件，所以重复了？ 又或者是你应该在textbox2那里选择事件，再在事件里加上代码，而不是单纯的整个过程复制过去