Public Function genString(ListObject As ListBox, ItemCut As String) As String
    genString = ItemCut
    For k = 0 To ListObject.ListCount - 1
            If ListObject.Selected(k) Then
            genString = genString & ListObject.List(k) & ItemCut
        End If
    Next
    If genString = ItemCut Then genString = genString & ItemCut
End Function

Public Sub BuildListBox(ByVal Target As ListBox, targetContent As String)
Dim addString() As String
Dim intIndex As Integer
Target.Clear
addString = Split(targetContent, ";", , vbTextCompare)
For intIndex = LBound(addString) To UBound(addString)
    If Len(Trim(addString(intIndex))) > 0 Then Target.AddItem addString(intIndex)
Next
End Sub