Al parecer el problema está en la línea:
Cita: cb = Me.GridView_Empleados_No_Activos.Rows(i).FindContr ol("selec_activo")
Es probable que ese no sea el nombre del campo y por eso en cb se está almacenado Nothing
Prueba lo siguiente:
Cita: If cb.Checked Is Nothing Then
msgbox "El problema es al capturar el valor de cb"
End If