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