Olá amigos do fórum, estou com dificuldades para exibir a hora corretamente quando puxo os dados da planilha para um objeto ListView. Por exemplo, na planilha Acessos, na coluna C tenho horas no formato 17:42:23 (hora, minutos e segundos). Mas a hora é exibida da seguinte forma: 0,66577878798.
Abaixo segue minha rotina para puxar os dados e popular o ListView

For x = 2 To lastRow
      If UCase(Sheets("Acessos").Cells(x, 4)) Like "*" & UCase(TextBox1) & "*" Then
            Set li = ListView1.ListItems.Add(Text:=Sheets("Acessos").Cells(x, "a").Value)
            li.ListSubItems.Add Text:=Sheets("Acessos").Cells(x, "b").Value
            li.ListSubItems.Add Text:=Sheets("Acessos").Cells(x, "c").Value
            li.ListSubItems.Add Text:=Sheets("Acessos").Cells(x, "d").Value
       End If
Next

Alguém pode dar uma ajuda!!!