Разбить длинный текст по строкам.

[EA_Kortes]

Товарищи помогите решить задачу на VBA, сам что-то никак не вразумлю.

- Есть таблица, в ней включен авто перенос текста, соответственно строка принимает ту высоту которая необходима для внесения всего текста.
- Требуется заполнить или переработать эту таблицу таким образом чтобы вместо авто переноса текст заполнялся в строки фиксированной длины и высоты.
Прикрепляю пример. Заранее спасибо всем участникам форума за помощь.

[MCH]

Как вариант

[EA_Kortes]

-> MCH
Спасибо огромное за ответ. Завтра на работе рассмотрю приложенный Вами код подробнее) Но на первый взгляд получилось не совсем корректно если внести более длинный текст (или же цифры) без пробела. Прикладываю вариант когда код не отработал так как я хотел. В частности, после обработки обратите внимание на строку №6. В ней больше символов чем отображается в ячейке. Еще раз спасибо Вам за отзыв.

[andreptobts]

Dim Text, StrocaDlina, Stroca1, Stroca1Dlina, Stroca2, Stroca2Dlina, Stroca3, Stroca3Dlina, Stroca4, Stroca4Dlina As Variant
Dim PosiciaPoisk1, PosiciaPoisk2, PosiciaPoisk3, PosiciaPoisk4, IscomText
IscomText = " "
Text = Range("A1")
StrocaDlina = Len(Text)
Range("B1").Value = StrocaDlina

PosiciaPoisk1 = Range("B2")
If PosiciaPoisk1 = Empty Or Text = Empty Then
Stroca1 = Empty
Else
If PosiciaPoisk1 >= StrocaDlina Then
Stroca1 = Text
Stroca1Dlina = Len(Stroca1)
Else
If PosiciaPoisk1 < StrocaDlina Then
Stroca1Dlina = InStr(PosiciaPoisk1, Text, IscomText, vbTextCompare)
If Stroca1Dlina = 0 Then
Stroca1 = Text
Stroca1Dlina = Len(Stroca1)
Else
Stroca1 = Left(Text, Stroca1Dlina)
End If
End If
End If
End If
Range("A2").Value = Stroca1

PosiciaPoisk2 = Range("B3") + Stroca1Dlina
If PosiciaPoisk2 = Empty Or Stroca1 = Empty Or Text = Empty Then
Stroca2 = Empty
Else
If PosiciaPoisk2 >= StrocaDlina And StrocaDlina > Stroca1Dlina Then
Stroca2 = Right(Text, StrocaDlina - Stroca1Dlina)
Stroca2Dlina = Len(Stroca2)
Else
If PosiciaPoisk2 < StrocaDlina Then
Stroca2Dlina = InStr(PosiciaPoisk2, Text, IscomText, vbTextCompare)
If Stroca2Dlina = 0 Then
Stroca2 = Right(Text, StrocaDlina - Stroca1Dlina)
Stroca2Dlina = Len(Stroca2)
Else
Stroca2 = Right(Left(Text, Stroca2Dlina), Stroca2Dlina - Stroca1Dlina)
End If
End If
End If
End If
Range("A3").Value = Stroca2