quando selezionerai il valore nella combo l'età sarà:

codice:
EtaScelta=Eta(Combo1.ItemData(Combo1.ListIndex))
TheTruster [/QUOTE]

Riprendendo il codice postato da Boolean (che tra l'altro si è firmato The Truster....)fai così:
codice:
Msgbox Etascelta
ciao