'--------------------------------------------------
Sub WriteDebug(ByVal DebugText$, Optional Filename$ = "debug.txt")
  Dim FileNr%
 
  FileNr = FreeFile
  Open App.Path & "\" & Filename For Binary Access Write Shared As #FileNr
  Seek #FileNr, LOF(FileNr)
  Put #FileNr, , DebugText
  Close #FileNr
End Sub
'--------------------------------------------------