VBA，编译错误，缺少：语句结束

求教各位大佬

• Public WithEvents appevent As Application
• Private Sub appevent newworkbook(byval wb as Workbook)
• MsgBox "你好！你将新建一个工作簿！", vbOKOnly, "测试新建工作簿事件"
• End Sub

appevent newworkbook
这是什么

如果是一个事件，中间不能有空格，应该是 appevent_newworkbook