How can I capture the ThisWorkbook.BeforeClose result?

Try this:

http://j-walk.com/ss/excel/tips/tip78.htm

Thanks much for your help!
This worked super!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strMsg As String
Dim bytResponse As Byte

'Prompt to save any other changes
Call Closing_Save_Database_Changes

'Handle the standard prompt on the workbook itself.
If Not Me.Saved Then
strMsg = "Do you want to save the changes you made to "
strMsg = strMsg & Me.name & "?"
bytResponse = MsgBox(strMsg, vbQuestion + vbYesNoCancel)
Select Case bytResponse
Case vbYes
'Only unlock if we know it is closing.
Call Unlock_Version
Me.Save
Case vbNo
'Only unlock if we know it is closing.
Call Unlock_Version
Me.Saved = True
Case vbCancel
'Do not unlock the spreadsheet.
Cancel = True
Exit Sub
End Select
End If
End Sub