CheckState will return
Checked, Unchecked, Indeterminate. But you need a Boolean value, so you look for the
Checked
Property, not the
CheckState
Property.
For a = 1 To 5
Dim bool As Boolean
bool = DataGridView1.Rows(a).Cells(0).Checked
data(a-1) = bool.ToString
Next
End Sub