Passare valori selezionati in una CheckedListBox in variabil separate

For Each itemChecked In CheckedListBox1.CheckedItems

 MessageBox.Show("Valore selezionato #: " + itemChecked.ToString())

Next

Dim Parameter As ArrayList = New ArrayList
        For Each itemChecked In CheckedListBox1.CheckedItems
            If Parameter.Count < 5 Then
                Parameter.Add(itemChecked.ToString())
            End If
        Next

        While Parameter.Count < 5
            Parameter.Add("default")
        End While