从日期选择器表单中填充用户表单中的文本框

Question

因此，我有一个名为NEW1的用户窗体，在其中有一个名为DATE1的文本框。

在NEW1中，我有一个小的控件可以打开日期选择器。从这个选择器中，我需要选择要填充文本框的日期。这是我到目前为止的代码。

Private Sub CommandButton1_Click()
    dateVariable = CalendarForm.GetDate( _
        SelectedDate:=Range("H34").value, _
        FirstDayOfWeek:=Monday, _
        DateFontSize:=12, _
        TodayButton:=True, _
        OkayButton:=True, _
        ShowWeekNumbers:=False, _
        BackgroundColor:=RGB(243, 249, 251), _
        HeaderColor:=RGB(147, 205, 2221), _
        HeaderFontColor:=RGB(255, 255, 255), _
        SubHeaderColor:=RGB(223, 240, 245), _
        SubHeaderFontColor:=RGB(31, 78, 120), _
        DateColor:=RGB(243, 249, 251), _
        DateFontColor:=RGB(31, 78, 120), _
        TrailingMonthFontColor:=RGB(155, 194, 230), _
        DateHoverColor:=RGB(223, 240, 245), _
        DateSelectedColor:=RGB(202, 223, 242), _
        SaturdayFontColor:=RGB(0, 176, 240), _
        SundayFontColor:=RGB(0, 176, 240), _
        TodayFontColor:=RGB(0, 176, 80))
        If dateVariable <> 0 Then Range("B5") = dateVariable

End Sub

因此日历功能会执行所需的操作，我需要更改的部分是它针对B5的最后一个字符串。它需要以用户窗体NEW1和文本框DATE1为目标，以填充文本框DATE1。

请帮助！！！