göra om till länk automatiskt

Hej!

Har idag följande funktion:

Function URLify(strInString,strTarget)
Dim strDelimiter,objRxp
strDelimiter = Chr(0)
Set objRxp = New RegExp
objRxp.Global = True
objRxp.IgnoreCase = true
objRxp.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strInString = objRxp.Replace(strInString, "<a href=""mailto" & strDelimiter & ":$1"">$1</a>")
objRxp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:)(\S)(\S+)"
strInString = objRxp.Replace(strInString, "<a target=""" & strTarget & """ href=""$1$2" & strDelimiter & "$3"">$2" & strDelimiter & "$3</a>")
objRxp.Pattern = "(www\.(\S)(\S+))"
strInString = objRxp.Replace(strInString, "<a target=""" & strTarget & """ href=""http://$1"">$1</a>")
URLify = Replace(strInString, strDelimiter, "")
End Function

den fungerar toppen med undantag för om jag gör en radbrytning direkt efter länken och fortsätter skriva någon text.
Då hamnar <br> taggen i länken och den blir därmed felaktig.
Vad kan man göra för att råda bot på detta?

tack på förhand