Alan -
This simple code will get you started. Range A1:A5 is where the data
is stored. Modify this to suit your needs. You may also need to
change the text box name if you have multiple text boxes on the sheet.

Sub AddTextToBox()

Dim strTextBox As String

For Each cell In Range("A1:A5")
strTextBox = strTextBox & cell.Value & Chr(10)
Next cell

ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.Text =
strTextBox

End Sub

- John
www.johnmichl.com/exceltips.htm

AJL wrote:
Hello,
I am trying to copy and paste the text returned by several vlookup formulas
to a text box. The amount of text returned to the cells is quite large.
When I set the text box equal to one of the cells, only a portion of the text
appears in the text box. When I set it equal to a range of cells I get
nothing. Is it possible to generate a macro that will copy and paste large
amounts of text that result from numerous equations into a text box?
Thanks.

-Alan Lueke