With Combo1 .AddItem "LUIS", 0 .AddItem "EVA", 1 .AddItem "ANTONIO", 2 .AddItem "MANOLO", 3 .AddItem "PEDRO", 4 End With