Mostrar datos en un TextBox ordenados.

[guif]

conseguido!!!
para copiar de un listbox a un textbox he creado una funcion:

Private Sub copiame()
Dim i%, strText$

For i = 0 To list1.ListCount - 1
strText = strText & list1.List(i) & vbNewLine
Next i
Text1.Text = strText
End Sub

para que en la sentencia SQL me recoja el valor de un textbox:

sql2 = "select p.clave AS clave from QSMTOWN.peticiones p, QSMTOWN.activos a where p.id_inventario=a.id_activo(+) and a.id_inventario = " & CLng(inventario)

gracias por vuestro tiempo!