While loType <> GetType(Object) > loType = loType.BaseType >End WhileSeems to me it should be:
While loType.BaseType <> GetType(Object) > loType = loType.BaseType >End WhileCould it be possible the code I originally got was assuming only one level of sub class to verify with?