'   /**
'    * IsEmptyArray
'    * @param   Array
'    * @return  true if Array is not initialized
'    */
Public Function isEmptyArray(ByVal iArray As Variant) As Boolean
  Dim Dummy As Long

  If IsArray(iArray) Then

	'Ggf. Fehler provozieren:
	On Error Resume Next
	Dummy = LBound(iArray)

	'Ergebnis bestimmen:
	IsEmptyArray = (Err.Number <> 0)
	On Error GoTo 0

  Else

	Err.Raise 13 'Type mismatch'

  End If
End Function