.... azz !!
Ma non riesco a correggere gli errori di digitazione ......
quel ....... Then 1 Else ...... va corretto in ....... Then 0 Else ......

Poi è lampante che al posto di LunghezzaStringa dovrai metterci Len, Lenght o cos'altro

anche quel ..... If IsNull(.........)..... sara da mettere a posto

.