Gøre links aktive, både med og uden www

Dette gør alle www-adresser indtastet i et textarea aktive, når de bliver trukket ud på en side:

objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
str = objRegExp.Replace(str, "<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$1$2$3$4</a>")

Men hvis nu min hjemmeside har adressen

http://inet.tele.dk/steen_hansen/

så har jeg et problem - det gør ikke linket aktivt. Er her én, der har lyst til at hjælpe mig med at få den med?