Funktion som plockar ut en url

Tjena,
Jag skulle behöva hjälp med en funktion som plockar ut en url ur en sträng. Funktionen ska se ut i stil med denna:

Function Url(Meddelandet)

End Function

Url(gastbok("Meddelande"))

Gastbok.("Meddelande") kan t.ex vara "Hej såg denna site http://www.site.nu och gillade den".
Då ska själva url:en bli en länk, e ni med?

Tack på förhand!