Creating Message Box after Saving

If I understand correctly, put this in the ThisWorkbook module (see VBE Project window):

Private Sub Workbook_BeforeClose(Cancel As Boolean)

x

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

x

End Sub

and this in a normal module

Sub x()

MsgBox "Text here", vbOKOnly

End Sub

But what is the point of this?