Si Myakire en esa oportunidad era ese problema pero ahora es otro. Ya encontre el problema era exactamente eso que lo deja como string
Código:
' Saca el valor maximo del arreglo
iMaxValue = 0
For I = 0 To UBound(aValues)
If cint(iMaxValue) < cint(aValues(I)) Then iMaxValue = cint(aValues(I))
Next 'I
de esta manera quedo solucionado al parecer el problema es por que traigo los datos de una vista y no me mantiene las propiedades del campo.
Saludos y Gracias