Datagrid + Checkbox + Textbox

[suncreative]

Tengo un datagrid en el cual tengo un checkbox y textbox... puedo recorrer el datagrid... pero necesito que el valor que obtenga el textbox de cada elemento se pueda almacenar en una variable vector... pero solo los que esten seleccionados por el checkbox... me marca un error de conversion de tipos

La conversión especificada no es válida

pongo el codigo si alguien sabe como...

for each item in Data.Items
dim Current as checkbox = item.Cells(0).Controls(1)
Dim CajaText as New TextBox()
CajaText.text = (CType(item.Cells(0).Controls(2), TextBox).Text)

If Current.Checked Then
bandera = true
arreglo(i) = aki

arreglo(i) = CajaText.Text
i+=1
end if
aki+=1
next