Excel VBA：根据文本框中设置的值在列表框中搜索值

I am trying to write a code for a search button which searches a listbox based a specific input set in a textbox. The values searched are always numbers, and the listbox contains values from a single column. The code i wrote can be found below but i don't understand why it is not functional.I am trying to write a code for a search button