= string.Empty

    Private Sub Auswahl()
 
        If cboAuswahl.SelectedIndex = 0 Then
            MessageBox.Show(lstListe.SelectedItem)
        Else
            Dim i As Integer
            Dim strInhalt As String = String.Empty
 
            For i = 0 To lstListe.SelectedItems.Count - 1
                strInhalt &= vbCr & lstListe.SelectedItems(i)
            Next
            MessageBox.Show(strInhalt)
        End If
 
 
    End Sub