Visual Basic para Aplicaciones - pasar textbox multilinea a excel

Estimados foreros, sigo con problemas con el textbox multilinea, ahora lo que necesito es que cuando preparo el informe (lo monto desde vba, es un modelo de factura) la fila donde van los datos de ese textbox se ajuste automaticamente en alto (van en una celda combinada de "a38" a " f38") lo he probado de la siguiente manera:

Hoja4.Cells(38, 1) = Format(Hoja4.Cells(38, 1), Rows.autofit)

y asi

Rows("38:38").RowHeight.autofit

y tambien asi

Worksheets("hoja4").Range("38:38").Rows.autofit

y no consigo dar con la sentencia adecuada

Alguien sabe como conseguirlo?

Gracias de antemano

es un problema interesante, creo haberlo entendido...

Dim i%
TextBox1.SetFocus
i = TextBox1.LineCount
With Range("A38")
.Value = Replace(TextBox1, vbCrLf, Chr(10))
With .Rows
.AutoFit
.RowHeight = i * .RowHeight
End With
End With

Saludos desde Baires, JuanC

Estimado Juan:
Por fin encontre un momento para provar tu codigo, funciona perfecto, pero mi problema ( y me di cuenta despues de mucho rato de de pruebas) es que al introducir los datos en el textbox no utilizo el salto de renglon, ya que si lo hago me queda un cuadradito al final y al inicio de la siguiente linea.
Se te ocurre alguna otra idea?
Agradecido de antemano
Albert

el 'cuadradito' te aparece en la hoja o en el Textbox?
si es lo que pienso, para eso está la línea del Replace( )...

Saludos desde Baires, JuanC

En la hoja