Pasar de ListBox a TextBox varios datos

Gusto en saludarlos. Quisiera solicitar su apoyo en la consulta de como realizar el siguiente paso.

Tengo un ComboBox para llenar un ListBox y poner elegir varios items, después de selecionarlos se pasan con un bóton a un TextBox.

Lo que quiero lograr es que al seleccionar otra opción en el ComboBox y esta cargue su ListBox correspondiente, seleccione nuevos items y se pasen al TextBox SIN BORRAR lo que ya este en el.

Código:

"Así cargo el ComboBox"

Private Sub cboMateria_Change()
Me.ListMat.Clear
For i = 2 To Application.WorksheetFunction.CountA(Hoja6.Range("B:B"))
If Hoja6.Cells(i, "A").Value = Me.cboMateria.Value Then
Me.ListMat.AddItem Hoja6.Cells(i, "B").Value
End If
Next i
End Sub

"Código de mi ListBox"

Private Sub CommandButton1_Click()
Dim i As Long, MyString As String
With ListMat
For i = 0 To .ListCount - 1
If .Selected(i) Then MyString = MyString & IIf(MyString = "", "", ", ") & .List(i)
Next i
End With
Me.TextBox1.Text = MyString
End Sub
Private Sub ListMat_Click()
For X = 0 To ListMat.ListCount - 1
If ListMat.Selected(X) = True Then
lista = lista & "," & ListMat.List(X, 0)
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
End Sub

Añade tu respuesta

Haz clic para o