Regex Example | Get All URL

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each myMatch1 As Match In New Regex("<a href=""(.*?)""", RegexOptions.None).Matches(RichTextBox1.Text)
            ListBox1.Items.Add(myMatch1.Groups.Item(1))
        Next
    End Sub
End Class