Prøv med denne kode:
Dim FilNummer As Long
FilNummer = FreeFile
Open CStr(App.Path & "\\logs\\" & Log_Name & ".log") For Binary As #FilNummer
Put #FilNummer, 1, Date & Chr$(0) & "at" & Chr$(0) & Time & Chr$(0) & ";" & "Connection has been" & Chr$(0) & Log_Status
Close #FilNummer
// Great programs often follow great brains!