Boa tarde pessoal !
Alguem poderia me ajudar na soma de alguns campos no listview , pois ja tentei de tudo ja pesquisei em quase todos os lugares e nao achei nada que me ajudase
segue em parte do trexo do codigo para melhor entender;

With LstContratos
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add Text:="Nº Contrato"
.ColumnHeaders.Add Text:="Representante", Width:=90, Alignment:=2
.ColumnHeaders.Add Text:="Contratante", Width:=85, Alignment:=2
.ColumnHeaders.Add Text:="Qtd Contratada", Width:=90, Alignment:=2
.ColumnHeaders.Add Text:="Sacas", Width:=90, Alignment:=2
.ColumnHeaders.Add Text:="Total Carregado", Width:=90, Alignment:=2
.ColumnHeaders.Add Text:="Saldo.", Width:=90, Alignment:=2

End With

' Adiciona itens a lista
lin = 2
Do Until Sheets("Contratos").Cells(lin, ID_CONTRATO) = ""
Set li = LstContratos.ListItems.Add(Text:=Sheets("Contratos").Cells(lin, ID_CONTRATO).Value)
li.ListSubItems.Add Text:=Sheets("Contratos").Cells(lin, NOMEFORNECEDOR).Value
li.ListSubItems.Add Text:=Sheets("Contratos").Cells(lin, NOMECONTRATANTE).Value
li.ListSubItems.Add Text:=FormatNumber(Sheets("Contratos").Cells(lin, QTDCONTRATADA).Value, 2)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Contratos").Cells(lin, TOTALSACASCONTRATADA).Value, 2)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Contratos").Cells(lin, TOTALCARREGADO).Value, 2)
li.ListSubItems.Add Text:=FormatNumber(Sheets("Contratos").Cells(lin, TOTALSALDOCONTRATO).Value, 2)

lin = lin + 1
Loop
'SaldoTotalContratos = FormatNumber(STOTALCARREGADO, 2)
End Sub

Os campos que estão em negritos são os campos q quero somar quero ter um textbox com a soma do total carregado e outro textbox com a soma do saldo de contratos
ja criei uma variavel como pode ver ai abaxio do LOOP para somar o campo Saldo de Contratos e funcionou a soma so que os dados do listview some e so mostra a soma se eu retiro a a variavel e ai volta normal, ja tentei somar na propria planilha e roda no vba so q não eu certo pq os valores que são salvos fica tudo como texto no excel e nao salva por favor alguem pode me ajudar desde ja agradeço a todos..

Boa tarde.

Marcelo Araujo