Function LeftEx(str,lennum)
Dim p_num
Dim i
If Len(str)<=lennum Then
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