Capturar o maior Valor da ListView

[Luck01 0]

Ajuda:  VB6 Estou precisando capturar  a maior hora que minha listview apresentar, Exemplo:

________________________________________________

Id | Descrição | Horas | Valor |

1 | Desc1        | 01:20  | 25,00 |

2 | Desc2        | 02:30  | 35,00 |

_________________________________________________

Então: Ao Abrir Formulário preciso que na txtMaiorHora Carregasse 02:30 

Se alguém puder me ajudar....

Lembrando que é em VB6

 

Atenciosamente,

Luciano.

[Luck01 0]

Alguém pode ajudar? 

[Luck01 0]

estou com este codigo que esta carregando a hora no formato certo só não consegui fazer retornar a maior hora, esta carregando a primeira que encontra, 

Alguém poderia me ajudar a fazer encontrar a maior hora na coluna da listview adaptando esta código abaixo???

 

Dim i As Integer
Dim maior As Date

For i = 1 To ListAgenda.ListItems.Count
If Format(ListAgenda.ListItems(i).SubItems(5), 0) > maior Then
maior = Format(ListAgenda.ListItems(i).SubItems(5), "hh:mm")
End If
Next i
txtHoraLivre = Format(TimeValue(maior), "hh:mm")