InputValue
InputValue函数用于显示一个对话框，获得用户输入的单个值。
这样我们就无需为一些简单的输入工作而专门设计窗口，直接使用InputValue函数即可。
语法：
InputValue(Variant, Caption，Description)
Variant:
用于接收数据的变量
Caption： 字符型，设置对话框标题
Description： 字符型，设置对话框说明
InputValue会返回一个逻辑值，如果用户在对话框中单击的是确定按钮，则返回True，否则返回False。
示例一
Dim
Val As
Date = Date.Today
If
InputValue(Val,
"筛选","请输入日期:")
Then
Output.Show(Val)
End
If
示例二
Dim
Val As Integer = 5