objRegExp problem [URL][/URL]

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!

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.