.

[Lethal]

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

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