Disponibilize o arquivo.

Segue Exemplo

Não tenho certeza mas eu acho que nao rola pq essa função é para caso vc queira fazer do campo como se fosse um campo do tipo memorando

Não sei se entendi, mas experimente:

Private Sub TextBox1_Change()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("Plan1")
tp = VBA.Split(TextBox1.Text, vbLf)

For x = 0 To UBound(tp)

    ws.Cells(1, x + 1).Value = tp(x)

Next

End Sub{/code]
                                                                                                	
Existem mil maneiras de preparar Neston. Invente a sua!

http://www.youtube.com/ExpressoExcel
                                                

                                                        
 
                                                    
	                                        

Reinaldo, muito obrigado atendeu perfeitamente, a posição de retorno ficou em colunas mas ajudou muito.
Mas uma vez agradeço a ajuda.
Abraços