>>384を使って、

Function ArrayEmpty(hoge) As Boolean
　　If SafeUbound < SafeLBound Then ArrayEmpty = True
End Function

Function SafeUBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeUBound = -1
SafeUBound = UBound(hoge, div)
fin:
End Function

Function SafeLBound(hoge, Optional div As Long) As Long
On Error GoTo fin
If div = 0 Then div = 1
SafeLBound = 0
SafeLBound = LBound(hoge, div)
fin:
End Function

う〜〜ん、、、いまいち美しくない…orz