Sub LogWrite(EventsLog As String)
If File.ExternalWritable = False Then
Msgbox("Cannot write log file.", "")
Return
Else
Dim TextWriter1 As TextWriter
TextWriter1.Initialize(File.OpenOutput(File.ExternalWritable, "newfile.log", True))
TextWriter1.WriteLine("- " & EventsLog)
TextWriter1.Close
End If
End Sub