VBA capture undo event

Function EditUndo() ' Catches Ctrl-Z

    If ActiveDocument.Undo = False Then Exit Function

    While BookMarkExists("_InMacro_")
        If ActiveDocument.Undo = False Then Exit Function
    Wend

End Function