求帮忙把日历链接到UserForm1 Textbox1

有偿吗，13478402509微信

Private Sub Calendar1_DblClick() ' 双击添加日期
Me.TextBox1.Value = Me.Calendar1.Value
Me.Calendar1.Visible = False
End Sub
'双击文本框显示日历控件，再次双击隐藏
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Calendar1.Visible = Not Me.Calendar1.Visible
End Sub
'初始化
Private Sub UserForm_Initialize()
Me.Calendar1.Visible = False
End Sub