Html koder og linjeskift i ASP

Nedenstående virker når der er noget i feltet, men får en fejlmeddelse når feltet er tomt.
Fejlmeddelse:
Invalid use of Null: 'Replace'

Nogen der har et forslag der virker?

<%
dim tekst
tekst = Server.HTMLencode(rs("01tekst"))
tekst = Replace(tekst , vbCrLf, "<br>")

IF  tekst = "" THEN
Response.Write ""
ELSE
Response.Write  tekst
END IF
%>