ops dimenticavo che in VB si fa cosi:

Combo1.AddItem valore


risultato = Combo1.ListIndex

cosi però ti prendi l'indice che va da 0 a infinito