Sub toReDim(ByRef mAry, ByVal mVal)
If isArray(mAry) Then
ReDim Preserve mAry(mVal)
Else
ReDim mAry(mVal)
End If
End Sub
Sub toReDim(ByRef mAry, ByVal mVal)
If isArray(mAry) Then
ReDim Preserve mAry(mVal)
Else
ReDim mAry(mVal)
End If
End Sub