vb.6 code for search