Function Short_info(ls_str As String, Optional li_lng As Integer) As String
Dim l As Long
Dim j As Integer
l = Len(ls_str)
If li_lng = 0 Then li_lng = 35
If l < li_lng Then
Short_info = ls_str
Else
j = l \ li_lng
Do While j > 0
Short_info = Short_info & vbNewLine & Left(ls_str, li_lng)
ls_str = Mid(ls_str, li_lng + 1)
j = j - 1
Loop
Short_info = Short_info & vbNewLine & Left(ls_str, li_lng)
End If
MsgBox Short_info, , "Short_info"
End Function