Uso no válido de Null: 'Replace'

[sqa212]

Tengo esta funcion:
Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function

El problema es que si hago:
<%=AcomodarTXT(rs("campo1"))%> y el rs no traia nada me da el error
Uso no válido de Null: 'Replace'.
Como hacer para solo aplicarle la funcion a aquellos rs("campo1") que tengan algun contenido???.
He probado con:
<%If (rs("campo1"))="" or ("campo1") Null then
else
AcomodarTXT(rs("campo1"))
end if%>

Pero no consigo solucionar el problema