el codigo es el siguiente:
PRIVATE FUNCTION Cortar(cadena)
IF Len(cadena) > 17 THEN
Cortar = LEFT(CADENA,14) & "..."
ELSE
Cortar = cadena
END IF
END FUNCTION
y el error es:
error '80020009'
Ocurrió una excepción.
el explorador ademas me indica que es en la linea del if len...
un saludo.
