خاصية Index

كيف يمكنني إختبار عنصر ما لمعرفة إن كان يحتوي علي خاصية Index أم لا ؟؟؟

أنظروا الكود التالي :

Private Function IsObjArray(Obj As Object) As String
On Error GoTo ExitError
    Dim logIndex As Long
    logIndex = Obj.Index
    IsObjArray = True
    Exit Function
ExitError:
    IsObjArray = False
End Function

فهو يعتمد علي خطأ (343: Object not an array) في حالة وقوعة إذاً فالعنصر لم يكن عنصر مصفوفة Array ، والعكس صحيح !!!

أريد طريقة أفضل من ذلك حتي لا يعرض ليا خطأ ، مثل المصفوفات العادية :

Dim Arr() As String
If ((Not Arr) = True) Then
    MsgBox "المصفوفة لا تحتوي علي عناصر بيانات"
End If

أرجو المساعدة