Visual Basic - Cargar de Excel

Tengo un algoritmo que lee de una hoja de calculo de excel. pero cuando en la celda el valor es numerico el algoritmo se trae un valor nulo.

Set rs = New ADODB.Recordset
rs.Open \"Select * from [\" & NombHoja & \"$]\", conn, adOpenDynamic, adLockBatchOptimistic
While Not rs.EOF
If (rs.Fields(ColCodigo) <> \"\") Then
Set ObjLstItm = frmDatos.lstArticulos.ListItems.Add
With ObjLstItm
.Text = rs.Fields(ColCodigo)
If rs.Fields(ColDescripcion) <> \"\" Then
.SubItems(1) = rs.Fields(ColDescripcion)
Else
.SubItems(1) = \"Articulo Sin Descripcion\"
End If
.SubItems(2) = Saca_Num(rs.Fields(ColCantidad))
If rs.Fields(ColBarra) <> \"\" Then
.SubItems(3) = rs.Fields(ColBarra)
Else
.SubItems(3) = \"Sin Código\"
End If
.SubItems(4) = rs.Fields(ColPrecio)
.SubItems(5) = rs.Fields(ColIV)
.SubItems(6) = rs.Fields(ColPVenta)
End With
End If
rs.MoveNext
Wend

POr favor si alguien ha pasado por esto y tiene una solucion compartela. muchas gracias