Dim reg As New Regex("<A href=(?<1>""index\.asp[^>]*)>(?<2>[^<]*)<\/A>")
Dim reg1 As New Regex("<[^>]*主题贴数[^>]*>(?<3>[^<]*)</TD>[^<]*<[^>]*><[^>]*发贴总数[^>]*>(?<4>[^<]*)</TD>")
Dim mc As MatchCollection = reg.Matches(Me.TextBox1.Text)
Dim mc1 As MatchCollection = reg1.Matches(Me.TextBox1.Text)
Dim m As Match
For Each m In mc
MsgBox(m.Groups("1").ToString)
MsgBox(m.Groups("2").ToString)
Next
For Each m In mc1
If m.Groups("4").Value <> "" Then
MsgBox(m.Groups("3").ToString)
MsgBox(m.Groups("4").ToString)