arcgis 标注按字数个数换行 FindLabel

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