Como salvar as caixas de seleção marcadas?

Dim chcboxes() As CheckBox = {CheckBox1, CheckBox2, CheckBox3}
For i As Integer = 0 To chcboxes.Length

    If (chcboxes(i).CheckState = CheckState.Checked) Then
        cmd.CommandText = "insert into array_tbl(array_id,answer) values ('" & i & "'  , '" & CheckBox1.Text & "')"
        cmd.ExecuteNonQuery()

O erro é:

correu uma exceção não tratada do tipo 'System.IndexOutOfRangeException' no array.exe

Informações adicionais: o índice estava fora dos limites da matri

questionAnswers(1)

yourAnswerToTheQuestion