Check af object type med VB6

Jeg har en collection, som jeg hælder objecter af typen clsTabel ind i, men nu er det naturligt i programmet også i ny og næ at hælde objecter af typen clsLib ind.

Førhen har jeg så gjort følgende, når jeg tog dem ud igen:

Dim varTables As Variant
Dim objTables As clsTable
For Each varTables In clsTabel.colParents
  Set objTables = varTables
....
....

Nu skal jeg så have tilføjet et type check. Hvordan gør jeg det?

Min tænkte psodu kode:

Dim varTables As Variant
Dim objTables As clsTable
Dim objLib As clsLib
For Each varTables In clsTabel.colParents
  If varTables.type = clsTable then
      Set objTables = varTables
  elseif varTables.type = clsLib then
      Set objLib = varTables
....
....