Sub Form1_Load Combo1.ListIndex=0 End Sub Sub Combo1_Click() Var1$ = Combo1.List(Combo1.ListIndex) End Sub