VB: LISTBOX, multiple select, externe Nutzung

.....
Sub LISTBOX_Click()
Dim EntryCount As Single
Dim number As Single
Dim file_selected As String

If LISTBOX.ListCount >= 1 Then
number = LISTBOX.ListIndex
file_selected = LISTBOX.List(number)
txt_STATUS.Text = file_selected : ' output to text_field
Else
txt_STATUS.Text = "FILELISTBOX empty ... "
End If
End Sub

.....