怎样从变量中提取多个类似的字符串呢

怎样从 html变量中提取多个类似thread-29324992的字符串呢 
我这个只能提取第一个
如何才能从html 这个变量里面最终获取二十多条帖子的地址呢 
我这个只能提取第一条帖子的地址 求修改

Dim html
url = "http:/"&"/bbs.duowan.com/forum-222-1.html"
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "get", url, False
XmlHttp.setRequestHeader "Content-Type", "text/XML"
XmlHttp.Send(null)
html = XmlHttp.responseText
start = Instr(1, html, "</em> <span id=", 0) + 15
over = Instr(start, html, "><a href=", 0)
okurl = Mid(html, start, over - start)
okurl = Replace(okurl,"_","-")
okurl = "http:/"&"/bbs.duowan.com/" & okurl & "-1-1.html"
okurl = Replace(okurl, """", "")
Call Plugin.File.WriteFileEx("D:\url.txt",okurl) --------------------编程问答-------------------- --------------------编程问答-------------------- over = Instr(start+1, html, "><a href=", 0)

必须+1，否则，永远停留在第一匹配的地方

补充：VB ,  基础类