Pasar elementos de un listbox a varios text

[David]

Estoy de acuerdo con Avellaneda, que sería mejor colocar los Ítems seleccionados en otro ListBox. Por ejemplo:

Código:

 
Dim Looping As Long
For Looping = 0 To ArtProvs.ListCount - 1
        If ArtProvs.Selected(Looping) Then
                SelectedList.AddItem ArtProvs.List(Looping)
        End If
Next Looping

Ahora bien, si necesitas que sea en TextBox, podrías crear una matriz de controles y cargar por cada Ítem seleccionado. No obstante, tendrías que escribir más código para posicionarlos correctamente.