SetDinamicArray

Public Function DynamicArraySet(pVarArray As Variant) As Boolean
'Purpose: To see if a Dynamic array has been set

'Parameters : pVarArray As Variant: Send in any Dynamic array

'data type Returns: True if has been set, false if not

On Error Goto NOT_SET
Dim iRet As Integer
If IsArray(pVarArray) Then
iRet = LBound(pVarArray, 1)
'if the Lbound call to the first dimension of

'pVarArray does not error then the dynamic array must

'be set so...

DynamicArraySet = True
Exit Function
End If
NOT_SET:
DynamicArraySet = False
End Function