<td align=center title='2009-10-30 17:01:37开奖'>20091030-43</td>
<td align=center><font style='font-size:16px;font-family:arial;'><b><font color='#333333' title='偶数,双数'>2</font>,<font color='#AA3333' title='奇数,单数'>5</font>,<font color='#AA3333' title='奇数,单数'>1</font>,<font color='#333333' title='偶数,双数'>8</font>,<font color='#333333' title='偶数,双数'>4</font></b><br><font class=xz color='#A0A0A3'>2009-10-30 17:00:00</td>
 
打算提取25184，不知怎么才能提取到text1.text中?

主要是25814这5个数字都是分开的

给你一段代码做参考：
Text1.Text = "<td align=center title='2009-10-30 17:01:37开奖'>20091030-43</td><td align=center><font style='font-size:16px;font-family:arial;'><b><font color='#333333' title='偶数,双数'>2</font>,<font color='#AA3333' title='奇数,单数'>5</font>,<font color='#AA3333' title='奇数,单数'>1</font>,<font color='#333333' title='偶数,双数'>8</font>,<font color='#333333' title='偶数,双数'>4</font></b><br><font class=xz color='#A0A0A3'>2009-10-30 17:00:00</td>"
str1 = "</font>"
result = ""
result1 = Text1.Text
where1 = InStr(result1, str1)
Do While where1 > 0
result = result & Mid(result1, where1 - 1, 1)
result1 = Mid(result1, where1 + 7, Len(result1) - where1 - 7)
where1 = InStr(result1, str1)
Loop
Text2.Text = result

用DOM很容易

谢谢各位大侠关心

字符分析罢