I currently have the following that allows me to select whats in my CheckedListBox and it displays in a message box popup

public Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged
    If CheckedListBox1.Items.Count > 0 Then
        Dim Items As New List(Of String)
        For Index As Int32 = 0 To