Sigo sin entender lo que quieres hacer... según lo que yo veo, la función que has puesto lo que hace es reemplazar ciertos caracteres.
Si lo que quieres es crear una url, tendras que decirselo.
Function AcomodarTXT(txt)
txt = Replace (txt, "<", "<")
txt = Replace (txt, ">", ">")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
AcomodarTXT = "<a href='http://" & txt & "' >texto</a>"
End function