How do I got the pop up when no item is selected in the listbox?

Code:
For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            SelectLayerByName (ListBox1.List(i))
        End If
    Next