Try this
Dim URLMatch As Match = Regex.Match(Editor1.Text, "(?<http>(http:[/][/]|www.)([a-z]|[A-Z]|[0-9]|[/.]|
)*)")
If URLMatch.Success = True Then
Response.Write("found a url")
'your code to make a db record here
End If
If the regular expression is not exactly what you need you'll find more on http://regexlib.com/
Hope this help.
Seb