En variant kan ju kanske vara att replaca lite i början av funktionen:
Function link(str)
str=replace(str,"http://")
...
Då kommer ju eventuell förekomst av http:// att tas bort varpå den senare kommer att läggas till.
Trådstart#1
Hejsan 
Jag har ett litet problem.
Function link(str)
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[URL\]([^\[]*)\[/URL\]"
str = objRegExp.Replace(str, "<A HREF=""http://$1"" TARGET=""LANK"">[url]http://[/url]$1</A>")
link = str
End Function
Detta då, om någon skriver:[ URL ]www.google.com[ /URL ] så skulle jag vilja att koden kollade upp om det är www i början annars så lägger den till HTTP:// i koden... Har försökt på lite olika sätt fast med negativa resultat.
Sen undrar jag om det är krångligt att göra som webforum har med URLet, att man kan skriva in address och namnet på hemsidan
Tack på förhand!