.

Code:

---

Private Sub Command1_Click()
Text1.Text = Combo1.ListIndex + 1
End Sub

---

I added the one because the combo box starts out as zero-based

Ahh, was supposed to be a reply..Soorrryy