[Resolvido] Soma Horas

Pessoal,

Criei um formulário que possue uma listview que soma as horas no formato hh:mm e está funcionando em parte o código, pois somente soma até 23:00 horas. Exemplo:

1 - 8:00

2 - 8:00

3 - 8:00

Total = 00:00

Portanto, quando o valor atinge 24:00 horas o sistema exibe 00:00 e se for maior que 24:00 horas ele não soma o valor 24:00 e sim o que excedeu as 24:00 horas. Veja o código completo:

Função SomaHora

>
Function SomaHora() As String

Dim X As Long

Dim total As Double

For X = 1 To ListViewHora_Extra.ListItems.Count

total = (total + TimeValue(ListViewHora_Extra.ListItems(X).SubItems(6)))

Next X

SomaHora = Format(total, "hh:mm")

End Function

Resultado da Soma:

Text1.Text = Format(TimeValue(SomaHora), "hh:mm")

Alguem pode me ajudar.

Alissong