' .. 
Dim uri As System.Uri 
Dim url As UriBuilder
Dim reg As Regex = New Regex(pattern, RegexOptions.IgnoreCase Or _ 
									  RegexOptions.Multiline Or _ 
									  RegexOptions.IgnorePatternWhitespace Or _ 
									  RegexOptions.Compiled )
For Each m As Match In reg.Matches(Me.RichTextBox.Text)
  uri = New System.Uri (m.ToString())
  url = New UriBuilder(uri)
  Me.listBox.Items.Add("URI: " + url.Uri.AbsoluteUri)
  Me.listBox.Items.Add("HOST: " + url.Uri.Host)
  Me.listBox.Items.Add("PORT: " + url.Port.ToString)
  Me.listBox.Items.Add("SCHEME: " + url.Scheme)
  ' // ... usw.