Function FindLabel([desp])
Dim text, count, lenght, result, num
text = [desp]
count=18
lenght = Len(text)
If lenght > count Then
'result=left([desp],count) & chr(13) & right([desp],len([desp])-count)
num = lenght / count
If lenght Mod count <> 0 Then
num = num + 1
End If
Dim l
For i = 0 To num Step 1
l = Len(text)
If l > count Then
result=result&left(text, count) & Chr(13)
text = Right(text, l - count)
Else
result=result&text
End If
Next
Else
result = text
End If
FindLabel = result
End Function