如何在运行宏时直接弹出日期选择框,选择后返回值赋给变量

我需要一个类似于INPUTBOX一样效果的日期选择框,可以弹出windows自带日期选择框,选择时间后返回一个DATE类型的数值,求助,谢谢

在"控件工具箱"中选"其他控件"，双击“日历控件 11.0”，添加一个微软带的日历控件，在宏中将空间的Visible=1，单机控件事件时取选中的日期即可。如控件的名字叫 Calendar ，

Sub myMacro()
Calendar.Visible = True
End

Private Sub Calendar_Click()
  日期变量 = Calendar.Value
  Calendar.Visible = False
End Sub