Как заполнить пользовательскую форму из DatePicker

Question

Я пытаюсь настроить пользовательскую форму, которая заполняется с помощью выбора даты.Столбец A будет списком дат, в то время как столбцы B, C & D, например, будут сотрудниками, которые работают в этот день.Кажется, я не могу найти способ заполнить текстовые поля с 1 по 3 в зависимости от выбранной даты.У меня была предыдущая форма, в которой использовались числа, но я не уверен, как изменить код, чтобы использовать даты через средство выбора даты.Буду признателен за любую помощь

У меня есть предыдущая электронная таблица, которая заполняется с помощью чисел, но не могу понять, как использовать средство выбора даты вместо текстового поля1

  Dim id As Integer, i As Integer, j As Integer, flag As Boolean


Sub GetData()

If IsNumeric(UserForm1.TextBox1.Value) Then
     flag = False
     i = 2
     id = UserForm1.TextBox1.Value

     Do While Cells(i + 1, 1).Value <> ""

         If Cells(i + 1, 1).Value = id Then
             flag = True
             For j = 2 To 5
                 UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
             Next j
         End If

         i = i + 1

     Loop

     If flag = False Then
         For j = 2 To 5
             UserForm1.Controls("TextBox" & j).Value = ""
         Next j
     End If

Else
     ClearForm
End If

End Sub