naturalmente devi inserire queste istruzione nell'evento giuso

list box

caselladitesto.text =Me.Elenco0.Column(0)

combo

caselladitesto.text = me.nomecombo.text