I have a situation where each object added in a collection is an object in itself, thus, it contains several items. For example, I can have this:

Dim loObject(4) As Object

loObject(1) = "Member"
loObject(2) = 12
loObject(3) = "62 Somewhere"
loObject(4) = 34

oTable.Add(loObject, lnKey)

Now, when I scan this collection, I need to get the key of a specific object I am looking for in it:

' For each item in the collection
For Each loObject In oTable
   lcTable = loObject(1)

   ' If this is the table
   If UCase(tcTable) = UCase(lcTable) Then
      lnKey = ...
      Exit For
   End If

Next

How can I adjust the "lnKey = " line to obtain the key of the loObject I just collected from the oTable scan I am doing?