Excel VisualBasic Script

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Open Application.Path & "\test.txt" _
      For Append As #1
    Print #1, "Stopped " & Now
    Close #1
End Sub