vb截取网页源代码 指定的字符串

部分源文件如下：
<strong>必备套装</strong>
</div>
<ul class="cfl">
<li class="top">
<dl>
<dt>
<a href="/goods/1731" target="_blank">
<img alt="" src="" width="200px" height="200px" class="pic"></a>
</dt>
<dd>
<a href="goods/1731" target="_blank">
<p>电视盒子</p>
</a>
<label>最发烧的互联网高清电视盒</label>
</dd>
<dd>
<div>
<strong>特惠价：¥299</strong>
</div>
</dd>
</dl>
</li>
<li class="top">
<dl>
<dt>
<a href="goods/2528" target="_blank">
<img alt="" src="" width="200px" height="200px" class="pic"></a>
</dt>
<dd>
<a href="goods/2525" target="_blank">
<p>MI2/2S必备配件优惠组合</p>
</a>
<label>电池+坐充+耳机+贴膜+多彩后盖，立省75元</label>
</dd>
<dd>
<div>
<strong>特惠价：¥200</strong>
<span>原价：¥275</span>
</div>
</dd>
</dl>
</li>
---------------
重复商品很多，只截取出特定关键字和网址 text1.text = ”电视盒子“ text2.text= “goods/1731“

位置=instr("获取的源码",text1.text) 根据位置截取内容，具体给个网址我帮你看看