VBA/Excel/Access/Word/File Path/Print to File

Logging Excel usage

 
Private Sub Workbook_Open()
    Open Application.Path & "\text.txt" For Append As #1
    Print #1, "Started " & Now
    Close #1
End Sub