Have been using this for years, thought I might shared it.
It's a logger function, it's very handy when you have multiple app and your trying to see who doing what.
Hope someone might find it useful
Sub writelog(m As String)
Dim s As OutputStream, b() As...