Boa noite galera !!!

Estou fazendo um projeto e não consigo formatar a coluna do listbox para aceitar hora alguém pode me ajudar ?

segue o código:

Private Sub UserForm_Initialize()

Dim Cont, UltimaLinha

    Sheets(1).Select
    Cells.Select
    Selection.RemoveSubtotal
    Sheets(1).Select

   ListBox1.Clear
 
   UltimaLinha = Plan1.Range("A10000").End(xlUp).Row
   
   For Cont = 1 To UltimaLinha
     
   
     Me.ListBox1.AddItem Plan1.Range("a" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Plan1.Range("b" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Plan1.Range("c" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Plan1.Range("d" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Plan1.Range("e" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Plan1.Range("i" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Plan1.Range("k" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Plan1.Range("o" & Cont)
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Plan1.Range("f" & Cont)
     Next
With status2
      .Style = fmStyleDropDownList
      .AddItem "Programada"
      .ListIndex = A
          
End With
                
End Sub

Preciso formatar essa linha para aceitar hora.
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Plan1.Range("d" & Cont)