Dim a As Integer
    While a < CheckedListBox1.CheckedItems.Count - 1
        a = a + 1
    End While
It crashes at: WordBankArray(a) = CheckedListBox1.CheckedItems(a)
Dim a As Integer
    While a < CheckedListBox1.CheckedItems.Count - 1
        a = a + 1
    End While
It crashes at: WordBankArray(a) = CheckedListBox1.CheckedItems(a)
 
    
    a=0;
foreach (ListItem li in CheckedListBox1.Items)
{
    a=a+1
    if (li.Selected)
    {
        WorkBankArray(a) = CheckedListBox1.Items[a].ToString();
    }
}
you can adjust the code as per your situation this is the broader guideline.
