RegExp problem

Jeg har denne funktion, som sætter "<a href..." osv. på en tekst, som er en adresse. Jeg ville gerne lave den om, så den altid laver teksten til et link, bare den starter med "http://" - men kan ikke helt hitte ud af det. Altså så den laver et link af f.eks. "http://pc/dokument.xls"

Nogen der kan hjælpe?

Function funcLink(str)
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True

    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>")

    Set objRegExp = Nothing
    funcLink = str
End Function