Function IsEmptyArray(ByRef a As Variant) As Boolean
  Dim Dummy As Long
 
  If IsArray(a) Then
 
    'Ggf. Fehler provozieren:
    On Error Resume Next
    Dummy = LBound(a)
 
    'Ergebnis bestimmen:
    IsEmptyArray = (Err.Number <> 0)
    On Error GoTo 0
 
  Else
 
    Err.Raise 13 'Type mismatch'
 
  End If
End Function