Set height of txtbox in form to auto with fixed width and set other txtbox to same height

Excuse the crappy layout! Making pretty isn't worth it till it works!

I am creating a form which displays sales records. The problem I have is when displaying the quantity, sku, Title, price. Ideally a table would work perfectly, but I can't figure out if this is possible. It does auto populate, but I've left generic info on the pic.

Crappy pic pointing to the text boxes in question.The title tends to be a few lines long, I need to set the item Title txtbox to be a set width but an auto height. I then need the quantity, sku and price txtboxes to match the height of the quantity txtbox. I'm looking for an invoice style layout.

At present I'm only working on the first item, I'll need to add the second item after this, hence why I want these to align.

Current code pinched from the fabulous interwebz:

Option Explicit
'Where the procedure called Findit is called after Enter is clicked.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
Findit
End If
End Sub

Private Sub Findit() 'Find and populate the records with Excel VBA
Dim fnd As Range
Dim Search As String
Dim sh As Worksheet
Dim i As Integer

Set sh = Sheet9
Search = TextBox1.Text
Set fnd = sh.Columns("A:A").Find(Search, , , xlWhole)

If fnd Is Nothing Then
MsgBox "No Person Found", , "Error"
TextBox1.Text = ""
Else
For i = 2 To 28 'There are 30? items in the userform.
Frm_sales.Controls("TextBox" & i).Text = sh.Cells(fnd.Row, i).Value
Next i
End If
End Sub

Apologies for my naivety. VBA is not something I practise, so while I'm not asking for complete answers, I'd appreciate being pointed in the right direction if anyone can advise, thanks!

Inkedscreen shot of sales sheet_LI.jpg

Not the answer to your question.
But maybe you want to have a look at this code,
and maybe after you tweak the code it can fit your expactation.

Private Sub CommandButton1_Click()
TextBox1.Text = ActiveCell
TextBox2.Height = Len(TextBox1.Text) + 20
End Sub

Private Sub UserForm_Initialize()
    With TextBox1
        .AutoSize = True
        .MultiLine = True
        .Width = 50
        .Height = 20
    End With
End Sub

Private Sub TextBox1_Change()
    With TextBox1
        .Width = 50
        If .Height < 20 Then .Height = 20
        .SelStart = 0
        .SelStart = Len(.Text)
        .SetFocus
        SendKeys "{Enter}"
    End With
End Sub

When the CommandButton1 is clicked,
it fill the TextBox1 with the active sheet active cell value which has quite many words.

the TextBox1_Change is fired, it put focus to the TextBox1 and send enter key to fit the height of the TextBox1 to it's value but keep the width.
Back to CommandButton1 it make the TextBox2 height the same as the height of TextBox1 height.

With the code above, if the user type in the TextBox1, it will give unpredictable result.
To solve it, move the SendKeys line to CommandButton1_Click