Excel tip: Create a log file

Sub WriteLogFile()
' writes data to a text file
' new entries will be added at the bottom of the file.
' if the file does not exists, it will be created.
      Dim iFileNumber                        As Long
      Dim strData                            As String
      Dim strFileName                        As String

      iFileNumber = FreeFile()
      strData = "Test data"            'the text written in the file
      strFileName = "C:\test.log"      ' the text file
      Open strFileName For Append Shared As #iFileNumber
      Print #iFileNumber, strData
      Close #iFileNumber
End Sub