Private Sub Combo1_Change()改为Private Sub Combo1_Click()前者在用键盘修改Combo1的文字时触发；后者在用鼠标点击Combo1的选项时触发。
Private Sub Combo1_Click() text1.text = combo1.textEnd Sub
