Pcarvajal:
Tendrás que hacerlo en dos pasos. Para agregar la descripción y la posición del nuevo elemento en un combobox o un listbox, usas AddItem. Pero para asignarle un valor numérico a cada elemento del control, usas ItemData. Por ejemplo, con un control ListBox de nombre List1:
Código:
Private Sub Form_Load()
List1.AddItem "Uno"
List1.ItemData(List1.NewIndex) = 1
List1.AddItem "Dos"
List1.ItemData(List1.NewIndex) = 2
List1.AddItem "Tres"
List1.ItemData(List1.NewIndex) = 3
List1.AddItem "Cuatro"
List1.ItemData(List1.NewIndex) = 4
List1.AddItem "Cinco"
List1.ItemData(List1.NewIndex) = 5
End Sub
Private Sub List1_Click()
Debug.Print List1.ItemData(List1.ListIndex)
End Sub
Hasta luego.