Need help on index for items in Listbox

[VBKey]

Hi all, I spent near half a day could not work it out. My question looks very simple (might be very simple for you), here is a list box shown as followed:

apple
orange
banana
.
.
Lime
.
.

The order of this list could be changed by user, in the end, I need to assign the index of "lime" for example, to a text field (txtorder). Any idea? Thank you.

[sendtoanurag]

Try This

For i = 0 To List1.ListCount - 1

If List1.List(i) = "LIME" Then
txtText1 = i
End If
Next