Function Ivanov(r As Range, Optional L = 100) As String
  If r.Rows.Count > r.Columns.Count Then
    Ivanov = Join(WorksheetFunction.Transpose(r.Columns(1).Value), ", ")
  Else
    Ivanov = Join(WorksheetFunction.Index(r.Rows(1).Value, 1, 0), ", ")
  End If
  If Len(Ivanov) > L Then Ivanov = Left$(Ivanov, InStrRev(Ivanov, ",", L) - 1)
End Function

Function trimtext(text As String, length As Integer) As String
    Dim obj As Object
    With CreateObject("VBScript.regexp")
        .Pattern = "(.{1," & length - 1 & "}[^ |\.|,|!|\?|$])(?: |\.|,|!|\?|$)"
        Set obj = .Execute(text)
        If obj.Count > 0 Then trimtext = obj(0).submatches(0)
    End With
End Function