VB获取网站数据..关于 InStr 和 Mid 的操作

Question

<li><em>
<li><em>人名：</em>小名<***********
<li><em>人名：</em>小红<***********
<li><em>人名：</em>小狗<***********
<li><em>人名：</em>小猫<***********
<li><em>

Dim a, b
a = InStr(Text1, "<li><em>人名：</em>") + 18
b = InStr(a, Text1, "<")
List1.AddItem Mid(Text1, a, b - a)
↑ 以上代码只能获取第一条的数据:小名
以上只能单独获取一条数据..
能不能循环的把<li><em>人名：</em>后面的所有人名都加载到list1里呢？
请给位大神给个答案

Answer 1

    Dim a As Integer, b As Integer
    a = InStr(Text1, "<li><em>人名：</em>")
    Do While a > 0
        a = a + 16
        b = InStr(a, Text1, "<")
        If b = 0 Then Exit Do
        List1.AddItem Mid(Text1, a, b - a)
        a = InStr(b + 1, Text1, "<li><em>人名：</em>")
    Loop

Answer 2

dim txtlist(10) as string 
for i=0 to 10
  txtlist(i)="<li><em>人名：</em>" & i
next i
for i=0 to 10
  list1.additem split(txtlist(i),">")(3)
next i