Código que detecte www e http em texto e strings

Olá pessoal, estou batalhando a um tempo por um código que automaticamente procure numa variável ou texto o www ou http:// e transforme automaticamente em link e já fique com target blank.

Eu baixei esse código na net mas só fica o www como link, já tentei fazer uma gambiarra para virar o http:// mas não consegui. Abaixo o código:

Function link(str)

link=str

link=replace(link,chr(10),chr(32)&chr(10))

busca="www"

target=" target=_blank "

pi=1

do while pi<>0

p1=InStr(pi,link,busca,1)

if p1<>0 then

p2=InStr(p1,link,chr(32),1)

parte1=left(link,p1-1)

total=len(link)

retorno=total-p2

parte2=right(link,retorno)

'//Capturando o link

http="http://" & Mid(link,p1,p2-p1)

 ahref= " <a href="""&http& """"&target&">"&http&"</a> "

 link=parte1 & ahref & parte2

 else

 exit do

 end if

 pi=p1+(len(ahref))

	loop

End Function

'//Criando uma variével com um texto qualquer

texto="Olá, este é um exemplo da fução que mostra links, tipo www.eurodance.com.br e www.teste.com.br vindos de banco de dados ou de variáveis. No momento, ele somente gera links do ""tipo"" http://www., mas logo estarei colocando novas aplicações, como e-mail. Qualquer sugestão é bem vinda."

'//Usando a função Server.HTMLEncode

'//IMPORTANTE - se for usar Server.HTMLEncode, use ANTES da função link

texto=Server.HTMLEncode(texto)

'//Usando a função link()

texto=link(texto)

'//Mostrando o resultado

response.write texto

se alguém saber de algum outro código que faça transforme automaticamente o resultado de uma variável www e http:// em link me ajude, por favor.

desde já valeu galera