Append a Text Note to a Local Log
Stores a timestamped note in a text file beside the compiled program. This is useful for simple logs, notes, and support traces.
Private Sub cmdSave_Click()
Dim fileNumber As Integer
Dim filePath As String
filePath = App.Path & "\notes.log"
fileNumber = FreeFile
Open filePath For Append As #fileNumber
Print #fileNumber, Format$(Now, "yyyy-mm-dd hh:nn:ss") & " " & txtNote.Text
Close #fileNumber
txtNote.Text = ""
MsgBox "Note saved to " & filePath, vbInformation, "Saved"
End Sub