Извлечение атрибутов дескрипторов HTML

[alex-lev9]

Получил ответ на запрос к серверу, поместил его в RichTextBox1.Text.
Далее хочу вычленить из HTML-документа содержимое дескрипторов, имеющих подкласс (например: <div class="time">).
Приведенный код выдает ошибку 94 "Неверное использование значения Null".

Set Doc = New HTMLDocument
CallByName Doc, "write", VbMethod, RichTextBox1.Text

Set NodeList = Doc.All.tags("div")
Dim Numb As Integer
Numb = NodeList.length

Set Elems = Doc.getElementsByTagName("div")

For ii = 0 To Numb - 1
MsgBox Elems(ii).getAttribute("class")
Next ii

Как можно добраться до подкласса дескриптора?

[dr.MIG]

А на какой строке он её выдаёт?

[alex-lev9]

Да, кстати, если я изменю форму Msgbox на такую:

MsgBox "ii = " & ii & "; class = " & Elems(ii).getAttribute("class"),

на экран выдается сообщение

ii = 0, 1, 2... ; class = и тишина. Ошибка исчезает, но результата нет.

[dr.MIG]

А кстати, что будет, если вместо getAttribute использовать что-то типа (вб нет под рукой, так что точно назвать не берусь) ClassName или getClassName. Вроде что-то такое было...

[Antonariy]

Если нужен конкретно class, то Elems(ii).className. Часть атрибутов, которые пишутся в html, являются свойствами элемента и в коллекцию атрибутов не попадают. Соответственно наоборот, атрибуты, не найденные среди свойств, попадают в коллекцию.

[dr.MIG]

Таки я был прав... Это радует

[alex-lev9]

Таки да! Все пошло. А я уже от отчаяния стал приноравливаться к анализу строковой переменной, в которую отправлял Elems(ii).OuterHtml. Тоже получается, но гемора много.
Спасибо за подсказки.