Se il campo è memo applica la len alla variabile:

codice:
messaggio = Recordset1.Fields.Item("messaggio").Value
<%if len(messaggio) < 40 then Response
Roby