Dim internet As New Net.WebClient Dim html As String = internet.DownloadString("http://www.nifty.com/") internet.Dispose() Dim regop As System.Text.RegularExpressions.RegexOptions = System.Text.RegularExpressions.RegexOptions.IgnoreCase Or System.Text.RegularExpressions.RegexOptions.Singleline Dim pattern As String = "\<a.*?(href=[""'](?<href>.*?)[""']).*?\>(?<InnerHtml>.*?)\</a.*?\>" Dim regex As New System.Text.RegularExpressions.Regex(pattern, regop) ListBox1.Items.Clear() For Each match As System.Text.RegularExpressions.Match In regex.Matches(html) Dim href As String = match.Groups("href").Value Dim innerHtml As String = match.Groups("InnerHtml").Value ListBox1.Items.Add(href & " " & innerHtml) Next