formatar celula como hora dentro de uma listview vba

Boa tarde amigos!

Preciso de ajuda, estou com uma lisview que puxa os dados de uma Planilha e no campo de horas, retorna para a listview desconfigurada,
como posso resolver este problema?

Registro---------- Data -----------Hora ------------ Turno ------------ Conferente
------1 --------- 12/12/12------- 0,3125 --------------1----------------- Daniel Silva
------2 ----------12/12/12--------0,35416666----------2------------------Maria Luiza

Qual a fórmula que está usando para puxar a lisview?

End With

lastRow = Plan8.Cells(Rows.Count, "a").End(xlUp).Row
'Adiciona itens
For X = 2 To lastRow
Set li = ListView1.ListItems.Add(Text:=Plan8.Cells(X, "a").Value)
li.ListSubItems.Add Text:=Plan8.Cells(X, "z").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "b").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "c").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "d").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "e").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "f").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "h").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "j").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "l").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "n").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "o").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "p").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "q").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "r").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "s").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "u").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "w").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "y").Value
li.ListSubItems.Add Text:=Plan8.Cells(X, "aa").Value


Next
End Sub