VB初心者質問スレPart2

>>77
いえ、なんというかもっとエレガントな
　　　Text1.Text = List1.何とか
こんな方法があるのかとおもってしまったのです。

書いてみましたが、関数の外部にList1が必要なのは
嫌なので、関数内部で動的に生成したいのですが
どのようにしたらよいのでしょうか？

Private Sub TextSort(ByRef TextBox As TextBox)
　Dim c As Variant
　Dim i As Integer
　List1.Clear

　For Each c In Split(TextBox.Text, vbCrLf)
　　List1.AddItem c
　Next

　TextBox.Text = ""
　For i = List1.ListCount - 1 To 0 Step -1
　　TextBox.SelStart = Len(Text1.Text)
　　TextBox.SelText = List1.List(i) & vbCrLf
　Next
End Sub

Private Sub Command2_Click()
　Call TextSort(Text2)
End Sub