Como Puedo dar formato de hora a un Listbox

Teno un Proyecto y necesito saber como darle formato de hora a un listbox en un userfom Espero pueda Ayudarme

Anexo código

Option Explicit
Private valor_buscado As String

Private Sub ListBox1_Click()

End Sub

'Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Dim valor_lista As Integer
'Dim seleccion As Integer
'seleccion = ListBox1.ListIndex
'valor_lista = ListBox1.List(seleccion, 0)
'ACTUALIZAR.txt_codigo = valor_lista
'ACTUALIZAR.txt_codigo.SetFocus
'ACTUALIZAR.txt_descripcion.SetFocus
'Unload Me
'End Sub
Private Sub TextBox1_Change()
valor_buscado = TextBox1.Text
Call buscar_valores
End Sub
Private Sub UserForm_Initialize()
Call buscar_valores
With ListBox1
.ColumnCount = 4
.ColumnWidths = "50;50;50"
.ColumnHeads = False
End With

End Sub
Private Sub buscar_valores()
Dim hoja As Worksheet
Dim BASE As Integer
Dim columna As Integer
Dim BASElistbox As Integer
Dim valor_celda As String
Dim conta_registros As Integer
Set hoja = ThisWorkbook.Worksheets(1)
BASE = 2
columna = 2
BASElistbox = 0
conta_registros = 0
ListBox1.Clear
With hoja
While .Cells(BASE, columna).Value <> Empty
valor_celda = .Cells(BASE, columna).Value
If UCase(Left(valor_celda, Len(valor_buscado))) = UCase(valor_buscado) Then
With LISTA.ListBox1
.AddItem
.List(BASElistbox, 0) = Sheets("REg").Cells(BASE, 1)
.List(BASElistbox, 1) = Sheets("REg").Cells(BASE, 2)
.List(BASElistbox, 2) = Sheets("REg").Cells(BASE, 3)
.List(BASElistbox, 3) = Sheets("REg").Cells(BASE, 4)
.List(BASElistbox, 4) = Sheets("REg").Cells(BASE, 5)

BASElistbox = BASElistbox + 1
conta_registros = conta_registros + 1
End With
End If
BASE = BASE + 1
Wend
End With
lbl_registros = conta_registros
End Sub