Dim sInhalt As String = String.Empty
 
        For nIdx As Integer = 0 To ListBox1.SelectedItems.Count - 1
            sInhalt += ListBox1.SelectedItems(nIdx).ToString & "; "
        Next
 
        MsgBox(sInhalt)