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

求教各位大佬

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