Hændelsen Save

Jeg har lavet en UserForm til Word, som skal dukke op når man gemmer et dokument. Jeg leder derfor efter den funktion der har adresserer Save-hændelsen. Jeg har prøvet med:

Public WithEvents App As Word.Application

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
  ...
End Sub

Men det lader ikke til at virke ..