Si avevo sbagliato a scriverla io... quella parentesi non c'è quindi ilproblema rimane. Ora ho provato a scrivere la funzione cosi:

Function ContaCaratteri(testo, sTrue, sFalse)
If len (testo) Then ContaCaratteri = sTrue Else ContaCaratteri =sFalse
End Function

testo = objRS("Testo" )
puntini = ContaCaratteri(testo>44 , testo &"[...]" , testo)

e poi vado ad inserire

& puntini &

Mi da: Tipo non corrispondente: '[string: "d"]'