Excel VBA log-to-file

log-to-file.vb

Private Const VERBOSE As Boolean = false

Private Function log(text as String)
  Debug.Print text
  If VERBOSE Then
    Dim n As Integer
    n = FreeFile()
    Dim File As String
    File = ActiveWorkbook.Path & "\debug.txt"
    If Dir(File) = "" Then
      Open File For Output As #n
      Close #n
    End If
    Open File For Append As #n
    Print #n, "[" & Format(Now, "YYYY-MM-DD hh:mm:ss") & "] " & text
    Close #n
  End If
End Function