Función Replace me devuelve error

[ciberpata]

Saludos:
Tengo esta función que me permite cambiar los finales de linea de un campo de una DB ACCESS:

Function AcomodarDb(txt)
txt = Replace (txt, vbCrLf, "<BR>")
AcomodarDb = txt
End Function

Todos los campos de un recordset aparecen mostrados en una tabla. Lo que quiero hacer es que cuando un campo esté vacio no aparezca para lo cual hago lo siguiente:

<%if rs("situacionhotel") <> "" then%>
<tr>
<td valign="top" class="FICHAAGENCIAITEMS">Situaci&oacute;n</td>
<td colspan="2" valign="top" class="FICHAAGENCIADATOS"><%=AcomodarDb(RS("situac ionhotel"))%></td>
</tr>
<%end if%>

El problema es que cuando el campo está vacio me devuelve el error:

Uso no válido de Null: 'Replace'

Entiendo que esto es porque la función al estar el campo vacio no tiene nada que reemplazar y entonces da ese error.

He probado la función asi:

Function AcomodarDb(txt)
if txt <> "" then
txt = Replace (txt, vbCrLf, "<BR>")
AcomodarDb = txt
end if
End function

pero tampoco va.
¿Saben como puedo hacerlo?
Gracias