Porque me carga esos numero en mi lisbox y no mi formato de hora

Espero me puedan ayudar,

Tengo un formulario que me carga mi lisbox, pero me carga con otros números y no con el formato de hora como puedo hacer para que se cargue con formato hora.

y este es mi código para carga la lista.

Sub CargarLista()
On Error GoTo Error
Dim arrayItems()
Dim VResultado   As Boolean
Dim Linea, Columna, Cont, Nlineas  As Long
Dim MyList
Dim i As Integer
Cont = 1
CantReg = 0
Nlineas = Sheets("Cargar").Range("A100").End(xlUp).Row
If Nlineas = 1 Then
Else
    ReDim arrayItems(1 To Nlineas, 1 To Sheets("Cargar").UsedRange.Columns.Count)
    With Me.ListBox1
                .Clear
                .ColumnCount = 4
                .ColumnWidths = "30 pt;100 pt;65 pt;55 pt"
        With Sheets("Cargar")
        MyList = .Range("A1:A" & Nlineas)
            For Linea = 6 To UBound(MyList)
                VResultado = True
                If VResultado Then
                    Me.ListBox1.AddItem
                    For Columna = 1 To 4
                        arrayItems(Cont, Columna) = .Cells(Linea, Columna).Value
                    Next Columna
                    Cont = Cont + 1
                End If
            Next Linea
            Me.ListBox1.List = arrayItems()
        End With
    End With
End If
Exit Sub
Error:
End Sub