>Passing type works fine (as far as I can test).
>
>But if you go back to your original code then surely this will always end up with the object type.:

While loType <> GetType(Object)
>            loType = loType.BaseType
>End While

Seems to me it should be:

While loType.BaseType <> GetType(Object)
>            loType = loType.BaseType
>End While

Could it be possible the code I originally got was assuming only one level of sub class to verify with?

If that is the case, the change you suggested would then work on multiple levels.