Private Function GetSelectedListItems() As Variant
Dim vntSelectedItems As Variant
Dim i As Long
Dim j As Long
If ListBox1.ListCount = 0 Then
GetSelectedListItems = Split(vbNullString)
Exit Function
End If
ReDim vntSelectedItems(1 To ListBox1.ListCount)
For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) Then
i = i + 1
vntSelectedItems(i) = ListBox1.List(j)
End If
Next
If i > 0 Then
ReDim Preserve vntSelectedItems(1 To i)
Else
vntSelectedItems = Split(vbNullString)
End If
GetSelectedListItems = vntSelectedItems
Erase vntSelectedItems
End Function