Количество "строк" текста в одной ячейке - VB

Формулировка задачи:

Тут вот несколькими постами ниже рассматривался вопрос про размер ячейки - у меня трабл немного похожий, но очевидного решения не нашел.
В ячейку может быть записано предложение из разного количества слов разной длины. Ширина ячейки пусть будет фиксированная. Работает перенос текста по словам. Нужно посчитать количество "строчек в ячейке", которое по факту занимает предложение. Вариант с анализом состава предложения, поиска пробелов и моделирования логики переноса строк мне кажется слишком навороченным. Можно ли допросить Excel на предмет того сколько "строчек в ячейке" он выделил под текст? Ведь он довольно быстро делает автоматическую высоту ячеек...Или спасение только в анализе текста
Буду благодарен за советы, поиском порылся - ничего не нашел:(

Решение задачи: «Количество "строк" текста в одной ячейке»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal Target <font color="blue">As</font> Range)
<br><font color="blue">With</font> Target
<br> <font color="blue">If</font> .Address = <b><font color="green">"$A$<b><font color="darkblue">1</font></b>"</font></b> Then .Offset(<b><font color="darkblue">0</font></b>, <b><font color="darkblue">1</font></b>) = .EntireRow.Height / .Worksheet.StandardHeight
<br><font color="blue">End</font> <font color="blue">With</font>
<br><font color="blue">End</font> Sub
                        