>>344
Dim counter As Integer
Dim tempArray() As String
　　tempArray = textBox1.Lines

For counter = 0 To tempArray.GetUpperBound(0)
TextBox2.Text = tempArray(counter)
Next

こういうことでしょうか？
行数はFor counter = 0 To tempArray.GetUpperBound(0)の数値をいじればいいのですよね？