простой способ распарсить хтмл

'WB1 загружаем страницу, в переменую загоняем разбив по >
    tkp = Split(WB1.Document.Body.innerhtml, ">")
    num = UBound(tkp)
   
    For nn = 0 To num
        tkp(nn) = LTrim(tkp(nn)) 'убираем пробелы
        mypos = InStr(1, tkp(nn), "<", 1) 'находим вхождение <
        If Len(tkp(nn)) > 1 Then
            tkp(nn) = left(tkp(nn), mypos - 1) 'исключить пустые теги вида <>
        Else
            tkp(nn) = left(tkp(nn), mypos)
        End If
        If Mid(tkp(nn), 1, 1) = Chr(13) Or Mid(tkp(nn), 1, 1) = Chr(8) Or Mid(tkp(nn), 1, 1) = Chr(10) Then
            tkp(nn) = "" 'если нашли чтото из управляющих как то ентер, таб или перевод каретки нафиг в ноль
        End If
    Next nn