这里我写一个例子，你理解后自己根据需要写代码：
这里假设下拉框是：Form1.ComboBox1，有三个选项；输入框是：Form1.InputBox1
下面是脚本代码：
//下面例子根据下拉框选项弹出对话框：
m = Form1.ComboBox1.ListIndex
Select Case m
Case 0 : MessageBox "0"
Case 1 : MessageBox "1"
Case 2 : MessageBox "2"
End Select
//下面例子是获取输入框内容：
Text = Form1.InputBox1.Text
MessageBox Text
内容全部来源于网络收集，如有侵权，请联系网站删除！