Uso no válido de Null: 'Replace'

[sqa212]

Lo he solucionado asi por si a alguien le interesa:
Function AcomodarTXT(txt)
txt = "" & txt
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function