Dim LB as ListBox = MyListBox
Dim MyEintrag as String = ""
 
With LB
     If .SelectedItems.Count > 0 Then
         For Each selItem As String In .SelectedItems
             MyEintrag = selItem
             Messagebox.Show(MyEintrag) 'nur als Test
         Next
      End If
End With