Function Leftex (Str, Lennum)
DIM P_NUM
DIM I
IF LEN (STR) <= lennum dam
Leftex = STR
Else
P_num = 0
X = 0
Do While Not P_num> Lennum-1
X = x 1
IF ASC (MID (STR, X, 1)) <0 THEN
p_num = int (p_num) 2
Else
p_num = int (p_num) 1
END IF
Leftex = Left (Trim (Str), X) & "..."
Loop
END IF
END FUNCTION
