Buenas amigos y sepan disculpar mi insistencia.

He encontrado una funcion ue suma items en el listview que es la siguiente:

Private Function SumarGrupo(Grupo As Integer)

Dim i As Integer
    'Recorre todos los items y para sumar los SubItems
    For i = 1 To ListView1.ListItems.Count
    If IsNull(ListView1.ListItems(i).SubItems(Grupo)) Then
    SumarGrupo = 0
    Else
         SumarGrupo = SumarGrupo + CDbl(ListView1.ListItems(i).SubItems(Grupo))
         End If
         
    Next i

End Function


Yo modifique lo de grupo para poder especificar la columna que deseo sumar, ahora el problema lo tengo cuando sumo una columan tal como:

DESCRIP.             COl1       COl2
 
Concepto1                20
Concepto2                           30
Concepto 3                10   

Ya que hay ciertos items en los que queda nulo y ahi me larga error, por una
cuestion estetica yo necesito que esos espacios queden vacios pero es el problema por el cual me tira el error, ojala puedan ayudarme, desde ya muchas gracias.

Hola amigo, gracias por ayudarme, tu modificacion funciona perfectamete, gracias nuevamente y tambien por tu tiempo, pueden cerrar el tema.