Soma de valores de listbox

Boa tarde,

Gostaria de ajuda com uma listbox, nela é carregada as seguintes colunas.

Fornecedor , Valor ,status, lote

Gostaria de que ela pegasse o menor valor por lote e depois soma-se esse valores, no momento eu fiz assim só que esta pegando o menor valor geral independente de lote.





For I = 0 To formPrincipal.ListaFornecedor.ListCount - 1
If (formPrincipal.ListaFornecedor.List(I, 4) = "Participou" Or formPrincipal.ListaFornecedor.List(I, 4) = "Premiado") And formPrincipal.ListaFornecedor.List(I, <> "Não Aprovado" Then
If CDbl(formPrincipal.ListaFornecedor.List(I, 6)) < CDbl(formPrincipal.campoMelhorProposta.Value) Or formPrincipal.campoMelhorProposta.Value = "" Then
formPrincipal.campoMelhorProposta.Value = Format(formPrincipal.ListaFornecedor.List(I, 6), "#,##0.00")
End If
End If
Next


ai o pretendido é tipo assim

Fornecedor , Valor , status, lote
fornecedor 1 , 100.000,00 Participou 1
fornecedor 2 , 90.000,00 Participou 1
fornecedor 3 , 105.000,00 Participou 1

fornecedor 1 , 50.000,00 Participou 2
fornecedor 2 , 75.000,00 Participou 2
fornecedor 1 , 45.000,00 Participou 2

Ao somaria o valor de 90.000,00 do lote 1 e os 45.000,00 do lote 2
Só que esses lotes não são fixos pode variar até mais .

tem como eu fazer isso?

Desde ja agradeço

Conforme for adicionando os registros, será carregado os valores min de cada lote e somado os valores na txt abaixo.

Só pra marcar o tópico.