Форматирование даты MM / DD / YYYY в текстовом поле в VBA

Question

из процедуры select_label по HTH

Private Sub select_label(msForm_C As MSForms.Control)
    '/* Capture the selected date */
    Dim i As Integer, sel_date As Date
    i = Split(msForm_C.Name, "_")(1) - 1
    sel_date = FirstCalSun(curMonth) + i

    '/* Transfer the date where you want it to go */
    MsgBox sel_date

End Sub

У меня есть UserForm1, который содержит TextBox1 со следующим кодом

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SelectDate.Show
End Sub

Вопрос заключается в следующем, как я могу связать мой код с TextBox1«с sel_date, отображаемым в TextBox1 (UserForm1), TextBox1 не имеет значения и собирает значение sel_date, это действие должно быть в цикле, чтобы я мог получать доступ к средству выбора даты столько раз, сколько необходимо, и изменять дату, оцените вашу помощь