How to set text box height according to (table column) Text

I have a multiline text box on page which has style "overflow: hidden" to hide the scroll bar.
I want to set the vertical hight of that text box at runtime according to the string coming from table column. Is there any way of doing it?

I have tried to put the text in array but its not working....
        Dim myParas As Object
        myParas = Split(TextBox2.Text, vbNewLine)
        ln = UBound(myParas) + 1
        TextBox2.Height = 22 * ln
...