Userform Listbox Problem, Excel 2000 & 2003

[jfcby]

Hello,

I have a user form with a textbox, listbox, and a command button.

My Listbox gets data from a worksheet.
My command button adds data to the active sheet active cell.

Is there a way to type data into my text box, search my listbox to
highlight the data?

I've tried this code and it does not work:

Private Sub TextBox1_Change()
With ListBox1
.List(.ListIndex, 1) = TextBox1.Value
End With
End Sub

Thank you for your help,
jfcby