求教路过的大侠！
能够把把关！
//下面对下拉框分别设置选项和初始值
Event Form1.Load
Form1.ComboBox1.List = "new1|new2|new3|new4|new5"
Form1.ComboBox2.ListIndex = "new1"
End Event
//第一种情形：把下拉框的值赋给输入框，在未启动小精灵的情况下输入框显示了跟下拉框相同的值
Event Form1.ComboBox1.SelectChange
Dim a
a = Split(Form1.ComboBox1.List,"|")
Form1.InputBox1.Text = a(Form1.ComboBox1.ListIndex)
End Event
// 第二种情形：选择下拉框某选项后运行，得到弹出框信息为空
Event Form1.ComboBox1.SelectChange
Dim a
a = Split(Form1.ComboBox1.List,"|")
End Event
MessageBox a
//第三种情形：选择下拉框某选项后运行，未弹出信息框
Event Form1.ComboBox1.SelectChange
Dim a
a = Split(Form1.ComboBox1.List, "|")
MessageBox a
End Event
晚生对后两种情形为何出现无法正确得到 变量 弹出框感到疑惑，请有研究的前辈不吝赐教！！