InputValue

InputValue函数用于显示一个对话框，获得用户输入的单个值。
这样我们就无需为一些简单的输入工作而专门设计窗口，直接使用InputValue函数即可。

语法：

InputValue(Variant, Caption，Description)

Variant:       用于接收数据的变量
Caption：      字符型，设置对话框标题
Description：  字符型，设置对话框说明

当参数Description达到4行时，输入框会覆盖不部分，超过4行时，输入框就看不到了。

当参数Description每行超过一定字数时，就会看不到或被确定和取消按扭档住。

希望窗口能自动适应大小

用InputBox

Dim s As String = InputBox("测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试", "标题")
msgbox(s)