Skippa i RegExp

hur gör jag om jag vill skapa länkar av alla http://**** ftp://** osv

Men inte då det finns ett " innan http://** osv.

Typ "http://www.test.com eller "ftp://sksksk

strText = textField
								mDelimit = Chr(0)
								Set re = New RegExp
								re.Global = True
								re.IgnoreCase = true
								re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
								strText = re.Replace(strText, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
								re.Pattern = ([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
								strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"" TARGET='_blank'>$1$2" & mDelimit & "$3</a>")
								re.Pattern = "(www\.(\S)(\S+))"
								strText = re.Replace(strText, "<a href=""http://$1"" TARGET='_blank'>$1</a>")
								strText = Replace(strText, mDelimit, "")
								textField = strText