File Path VisualBasic Script

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