Vba Listbox Set Selected Item, add function (which contains the given values from the textbox).