Link maker

Hejsa

Jeg har fået fat i en funktion som kan lave tekst om til et link.

function makeLink(str)
    '*** Make the reqular expr object
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

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

    '***Make html mailto
    objRegExp.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
    str = objRegExp.Replace(str, "<a class="&chr(34)&"nyheder"&chr(34)&" href="&chr(34)&"mailto:$1"&chr(34)&">$1</a>")
    Set objRegExp = Nothing
    makelink = str
end function

Men jeg kunne godt tænke mig at man kunne lave www.etrigtigmegetlangtlink.dk/ligesåmegether.asp?id=1 om til at man kun så "tryk her" og man kunne trykke på "tryk her" og komme til url'en.
Html koden ville se sådan ud:
<a href="http://www.etrigtigmegetlangtlink.dk/ligesåmegether.asp?id=1" target="_blank">tryk her</a>

i stedet for:

<a href="http://www.etrigtigmegetlangtlink.dk/ligesåmegether.asp?id=1" target="_blank">www.etrigtigmegetlangtlink.dk/ligesåmegether.asp?id=1</a>

Den oprindelige tekst kunne fx se sådan ud:
www.etrigtigmegetlangtlink.dk/ligesåmegether.asp?id=1<visSom>Tryk her</visSom>

Jeg synes det er lidt svært at forklare så spørg endelig hvis I ikke forstår!

Mvh