problemas con el CheckedListBox al seleccionar

[denpz]

Hol a a todos buenas noches tengo un problema con el CheckedListBox1 lo que pasa que lo que quiero hacer q al estar seleccionando algún ítem si es true lo vaya agregando a un array pero no encuentro como, en ocasiones manda el mensaje y en otros no a un q tenga la palomita puesta ,este es el código que uso. El CheckedListBox1 esta llenado a una base de datos. O alguna ida como resolver este tema. Gracias asta pronto
Sub CheckedListBox1SelectedIndexChanged(sender As Object, e As EventArgs)
Dim i As Integer = CheckedListBox1.SelectedIndex
If CheckedListBox1.GetItemChecked(i) = True Then
msgbox(CheckedListBox1.Text)
End If
End Sub