Avrei un problema con una funzione per la formattazione testo di una textarea: mi spiego meglio

Ho un form con una textarea per inviare degli articoli, note o quant'altro.

Chiaramente quando do invio, il testo non va a capo e, allora, per la visualizzazione corretta del testo con gli A CAPO giusti ho questa funzione:

codice:
Function reformat(text)
  var1 = text
  var2 = Replace(var1, "<", "&" & "lt;")
  var3 = Replace(var2, ">", "&" & "gt;")
  var4 = var3 & " "
  varText = Replace(var4, vbCrLf, "
")
  reformat = varText
End Function
poi, per la visualizzazione faccio:

codice:
<%=reformat(vedinews.Fields.Item("articolo").Value)%>
e mi funziona regolarmente fin tanto che il campo è pieno. In un db dove in quel campo ho la possibilità di inserire delle note e quindi queste ultime potrebbero esserci e non esserci, se non ci sono, mi da questo errore:

codice:
Errore di run-time di Microsoft VBScript error '800a005e' 

Utilizzo non valido di Null: 'replace' 

/utility/funzioni.asp, line 32
Come risolvere??

Grazie e Bye