ArrayResize

Public Sub AResize(ByRef arrArray As Variant, _
ByVal intSize As Integer, Optional _
ByVal boolClear As Boolean)
' Resize the array to a new given size

If boolClear Then
' Clear all existing items

ReDim arrArray(intSize)
Else
' Preserve all existing items

ReDim Preserve arrArray(intSize)
End If
End Sub