added new feature to return the complete ACL change history aside from the last change
Sample usage
If ts.EventId = EVENT_ACL then
MsgBox "get last action with ts.GetString(3)"
Dim last_action As Variant
last_action = Split(ts.AclChange, "~#~")
MsgBox last_action(UBound(last_action) - 2)
MsgBox last_action(UBound(last_action) - 1)
MsgBox last_action(UBound(last_action))
MsgBox "====================="
MsgBox "get ACL history with ts.GetString(4)"
Dim acl_history As Variant
acl_history = Split(ts.AclHistory, "~#~")
ForAll e In acl_history
MsgBox CStr(e)
End ForAll
End If