ClearArray

arrNew = AClear(arrOld)
Public Sub AClear(ByRef arrArray As Variant)
' Clear the contents of the array

arrArray = Array()
End Sub