Dim hc As New HttpClient("http://search.anccnet.com/searchResult2.aspx?keyword=6907992100272") hc.ResponseEncoding = "gb2312" Dim str As String = hc.GetData() output.show(str) Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str,"(?<=<dd>).+(?=</dd>)") If mc1.count > 0 Then msgbox(mc1(0).value) msgbox(mc1(2).value) End If