关于HTML格式解析的问题

我已经通过POST和GET获得了一个网页的HTML格式数据，该数据在一个变量myHtml中（也可以写到窗体的文本框中），请问我如何能把里面的内容解析出来，尽量不要使用正则表达式，因为有点复杂，弄不懂。从网上找了一段代码，但我根本不知道怎么把myHtml变量中的数据与这段代码关联起来。

也就是Dom.Document.getElementsByTagName("li") 这句DOM

Private Sub Command1_Click() 

Dim str As String Dim li, cd 

Dim c_name As String '遍历元素<li> 

For Each li In Dom.Document.getElementsByTagName("li") '用判断忽略掉列首名称的<li>行 

If li.classname = "lst_row" Then '遍历<li>下的节点 

For Each cd In li.childNodes '判断是否为元素节点 

If cd.nodeType <> 3 Then If cd.classname = "col_2" Then '如果是第2列的<span>,那么再用firstChild取出第一个元素节点<a> 

str = str & cd.firstChild.href & " " 

Else '其他列直接输出文本 

str = str & cd.innertext & " " 

End If 

End If 

Next str = str & vbCrLf 

End If 

Next 

Print str 

End Sub