Перебор дочерних узлов, почему-то Next срабатывает только 1 раз

Собственно код:

If TV.SelectedItem.Children <> 0 Then
        Set objNode = TV.SelectedItem.child
        For i = 1 To TV.SelectedItem.Children
            Debug.Print objNode.Key
            Set objNode = TV.SelectedItem.child.next
        Next
End If

Всего в ветке 6 дочерних узлов, после отработки кода в окне отладки 6 строк: код первого узла + 5 повторов кода второго узла. Получилось, что Next работает только между 1 и 2 элементами.

Думай, Дуб, думай!

For i = 1 To TV.SelectedItem.Children
Debug.Print objNode.Key
Set objNode = objNode.next
Next

Спасибо!