پرسش فرمت ساعت در لیست باکس،مشکل با offset و....

[a.dal65]

با سلام خدمت اساتید
من به چند تا مشکل توی userform بر خوردم ممنون میشم راهنمایی کنید

1. چیکار کنم توی listbox فرمت ساعت درست نمایش داده بشه
(ستون شماره 8 در لیست باکس)




2. اطلاعات فیلد "شماره فاکتور" از شیت بارگذاری و به ترتیب میشه ،

Dim c As Range
TextBox1.Clear
With Worksheets("Data")
    For Each c In .Range(.Range("a2"), .Range("A" & .Rows.Count).End(xlUp))
        If c.Value <> vbNullString Then TextBox1.AddItem c.Value
    Next c
End With
On Error Resume Next
With Me.TextBox1
For x = LBound(.List) To UBound(.List)
For Y = x To UBound(.List)
If .List(Y, 0) < .List(x, 0) Then
blah = .List(Y, 0)
.List(Y, 0) = .List(x, 0)
.List(x, 0) = blah
End If
Next Y
Next x
End With 

میخوام وقتی کاربر شماره فاکتور 1 رو انتخاب کرد اطلاعات اون ردیف توی بقیه textbox های userform لود بشه که از این کد استفاده کردم ولی کار نمیکنه :

Dim cell As Range
For Each cell In Sheet4.Range("a2", Sheet4.Range("a1500").End(xlUp).Address)
If cell.Value = TextBox1.Value Then
TextBox2 = cell.Offset(0, 1)
TextBox3 = cell.Offset(0, 2)
TextBox4 = cell.Offset(0, 3)
TextBox5 = cell.Offset(0, 4)
TextBox6 = cell.Offset(0, 5)
TextBox7 = cell.Offset(0, 6)
TextBox8 = cell.Offset(0, 7)
End If
Next cell
On Error Resume Next 

3. وقتی کاربر توی userform توی فیلد تاریخ ، تاریخی رو وارد مکینه
مثلا: 1397/09/11
توی شیت Data ستون روز ، ماه ؛ سال هر کدوم به ترتیب وارد بشه 11 09 1397

[a.dal65]

مشکل اولی رو تونستم حل کنم :

Private Sub UserForm_Initialize()
Dim lindex&
With Me.ListBox1
    For lindex = 0 To .ListCount - ActiveSheet.[h2]
        .List(lindex, 7) = (Format((.List(lindex, 7)), "hh:mm"))
    Next
End With
End Sub 

مشکل سومم رو هم تونستم حل کنم :

Mid(TextBox7, 9, 2)

فقط میمونه دومی