Private Sub userform_initialize()
Me.StartUpPosition = 2
Dim L&, C&
Set RngDon = Sheets("Base").Range("I390:N392")
TDon = RngDon.Value
For L = 1 To UBound(TDon, 1)
Me("Label" & L).Caption = TDon(L, 1)
For C = 2 To 6
Me("TextBox" & (L - 1) * 5 + C - 1).Text = TDon(L, C)
Next C, L
Dim I As Integer
For I = 13 To 15
With Controls("TextBox" & I)
.Value = Format(.Value, "hh:mm")
End With
Next I
End Sub