InputBox 用户输入对话框
在对话框中显示提示,等待用户输入文本或单击按钮,并返回文本框内容。
参数1 字符串型,消息字符串
参数2 字符串型[可选],标题
参数3 字符串型[可选],提示框默认内容
参数4 整数型[可选],对话框X坐标位置
参数5 整数型[可选],对话框Y坐标位置
字符串型,返回文本框内容

Dim Input
Input = InputBox("请输入名字:","提示:","张三",0,0) 
MsgBox "输入: " & Input


//[可选]意思是,也可以不需要填参数
//如下:
Dim Input
Input = InputBox("请输入名字:") 
MsgBox "输入: " & Input

Dim Input
Input = InputBox("请输入名字:","提示:","张三",0,0) 
MsgBox "输入: " & Input


//[可选]意思是,也可以不需要填参数
//如下:
Dim Input
Input = InputBox("请输入名字:") 
MsgBox "输入: " & Input