множественный выбор элемента в listbox2 из совпадающего комбинированного текста (разделенных;)

Question

Я хотел бы создать список с множественным выбором2, чтобы можно было обновлять его, комбинируя текст, разделенный знаком ";", дважды щелкнув по списку1.Я сделал от многократного выбора к объединению текста, но не другим способом.пожалуйста помогите !!!

Private Sub Listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Load userform2

With Userform2
    Dim txtStrg As String
    Dim WArray() As String
    txtStrg = Me.Listbox1.List(Listbox1.ListIndex, 7)
    WArray() = Split(txtStrg, "; ")
    For i = LBound(WArray) To UBound(WArray)
        For x = 0 To Userform2.Listbox2.ListCount - 1
           If Userform2.Listbox2.Selected (x)  Then
              If Userform2.Listbox2.List(x) = WArray().Value Then
                   Userform2.Listbox2.Selected(x) = True
              End If
           End If
        Next x
    Next I
    .Show
End With

End Sub