Max længde - MakeLink script

Halløj Eksperter...

Jeg bruger pt. det kendte MakeLink script som nedenstående, men ønsker at sætte en maks længde på selve linket hvis det eksempelvis er over 30 tegn...

Jeg benytter følgende:
function MakeLink(str)
    '*** Make the reqular expr object
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
   
    'Replace trailing spaces with " "
    objRegExp.Pattern = "(\s) "
    str = objRegExp.Replace(str,"$1 ")
   
    '***Make html links
    objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
    str = objRegExp.Replace(str, "<a target='_blank' href="&chr(34)&"http://$2$3$4"&chr(34)&">$1$2$3$4</a>")
   
    objRegExp.Pattern = "(^|[^\/])(w{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
    str = objRegExp.Replace(str, "$1<a href="&chr(34)&"http://$2$3$4"&chr(34)&" target='_blank'>$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


Jeg har forsøgt med left(str, 20) men uden held...
Den retunerer blot $1$2$3$4

Hvordan kan jeg få den til at retunerer ønsket længde således:
<a href="LANG URL"><%= left(LANG URL, 20)%></a>

??