我用vb编写了一个程序，获取了网页的源代码，但是我想获取特定的内容，下一步应该怎么做？

dim s = text2.text
s1 = split(s,"<strong>") 'strong 后面的数据
s2 = split(s1(1),"</strong>")
print s2(0) 'strong 后面,/strong 前面的数据

使用 Mid() 函数。

示例：
sHTML="abc<strong>def</strong>"
如果前一个<strong>在一段文字sHTML中是唯一的，首先定位“<strong>”的位置，BeginNum=Instr(sHTML,"<strong>")，同样，再确定</strong>的位置，EndNum=Instr(sHTML,"</strong>")，在示例中，BeginNum=4,EndNum=15,然而我们要得到的是“def”,只有三个字符，这时可以这样计算，15-4=11，"<strong>"总共是8个字符，11-8=3，OK。

源码：
dim sHTML
sHTML="abc<strong>def</strong>" '=后即为你获取的源代码
BeginNum=Instr(sHTML,"<strong>")+8 '知道这个8是哪里来的了吧？与上面解释不同，这里我们要定位我们需要文字的开头第一个字符的位置，即"def"中“d”的位置
EndNum=Instr(BeginNum,sHTML,"</strong>")
Text2.Text = Mid(sHTML, BeginNum, EndNum - BeginNum)

Mid(全部内容，开头位置[，需要的字符个数])

在写一个函数来分析源码,vb有很多字符窜处理函数嘛,就用