problemer med funktion der skal detektere url´er og lave links

Jeg bruger i dag nedenstående funktion til automatisk generering af HTML links hvis der findes URL´er i en given tekst-streng.

Men nu har jeg opdaget at f.eks. en URL som denne:
http://lejlighedsydfrankrig.adr.dk

ikke opdages af funktionen. Jeg formoder det måske skyldes at adressen ikke indeholder "www". Kan nogen hjælpe mig med at omskrive scriptet, eller ligger måske inde med et andet og bedre script til dette formål.

her er koden:

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 href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$1$2$3$4</a>")

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