Visual Basic - list box y text box

mi pregunta es si se puede traspasar un item o los item uno por uno de un list box a un text box y que los datos queden borrados del list box

Si se puede, es bastante facil. Este seria el codigo:

list1.selected(0) = true 'para que seleccione el primer item del list

do while not list1.listindex = list1.listcount -1 'para que repita la instruccion hasta que llegue al ultimo elemento

text11.text = list1.text 'para que el texto del item pase al textbox

list1.selected(list1.listindex + 1) = true 'para que seleccione el siguiente elemento

loop

text11.text = list1.text 'para que el texto del ultimo item pase al textbox

list1.clear 'para borrar todos los elementos

si queres que en el textbox se vallan sumando los textos de los items, seria asi:

list1.selected(0) = true 'para que seleccione el primer item del list

do while not list1.listindex = list1.listcount -1 'para que repita la instruccion hasta que llegue al ultimo elemento

text11.text = text1.text + " - " + list1.text 'para que el texto del item pase al textbox, y se sume al texto anterior pero separado por un guion

list1.selected(list1.listindex + 1) = true 'para que seleccione el siguiente elemento

loop

text11.text = text1.text + " - " + list1.text 'para que el texto del ultimo item pase al textbox, y se sume al texto anterior pero separado por un guion

list1.clear 'para borrar todos los elementos

Espero que te sea util, suerte

Esto puede servirte
Dim k As Long
If List1.ListCount < 1 Then Exit Sub
Text1.Text = ""
For k = 0 To List1.ListCount - 1
List1.ListIndex = k
Text1.Text = Text1.Text & List1.Text & vbCrLf
Next k

Saludos Ruri

Recuerda colocar en true la propiedad multiline del Textbox