VB6 HTML elements offsetParent рекурсив проблема

VB6 HTML elements offsetParent рекурсив проблема
Как рекурсивно обнаружить все родительские элементы где сидит текущий ХТМЛ элемент? Я делаю так и ВБ6 ругается, что то не нравиться ему

While (TypeOf elem Is IHTMLElement)
parentall = "-Parent Tag=" & elem.offsetParent.tagName & _
elem.id & ",l=" & elem.offsetLeft & ";t=" & elem.offsetTop & _
Set elem = elem.offsetParent
Wend