sinceramente non so a che cosa possa servire, ma, solo per prova

codice:
    
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
 Dim c As ListBox = DirectCast(sender, ListBox)
 Dim index As Integer = c.SelectedIndex
 If index = -1 Then Return
 Dim item As String = c.SelectedItem.ToString
 If String.IsNullOrWhiteSpace(item) Then
  'Label1.Text = "VUOTO"
  c.Items.RemoveAt(index)
 Else
  'Label1.Text = "Non vuoto"
 End If
End Sub