Function TextToRect(ByVal Txt As String, txtWidth As Long, ToForm As Form) As String

Dim Tmp As String, L As Long

Const Dot As String = "..."

If ToForm.TextWidth(Txt) >= txtWidth Then

Tmp = vbNullString

L = 0

For i = 1 To Len(Txt)

L = Len(Txt) - i

If ToForm.TextWidth(Left(Txt, L) & Dot) <= txtWidth Then Exit For

Next

If L > 0 Then TextToRect = Left(Txt, L) & Dot

Else

TextToRect = Txt

End If

End Function

'Пример

Print TextToRect("Created by SCINER: lenar2003@mail.ru", 500, Form1)