Hi Death,

You can try this.

On your form, put a ListBox control named List1 and a TextBox control named Text1.

-------------------

Dim a As Integer

With Me.List1

.Clear
.AddItem "apple"
.AddItem "banana"
.AddItem "mango"
.AddItem "orange"

For a = 0 To .ListCount - 1

If (.List(a) = Me.Text1) Then

Call MsgBox("You have " & .List(a), vbOKOnly + vbInformation, "Information")

End If

Next a

End With


Does it help ?

Regards