excel vba - Search number and delete the records -

the below coding in searching string , deleting records when search number, not deleting records. please advise went wrong.

the below coding not working number (integer)and works string.

dim myfilenamedir string dim ws1 worksheet dim irow1 long dim str string   myfilenamedir = "c:\users\gshaikh\desktop\book16.xlsx" workbooks.open filename:=myfilenamedir, updatelinks:=0 set ws1 = worksheets("students")  str = listview1.selecteditem.subitems(1)  msgbox str   ws1        .autofiltermode = false       irow1 = .range("b" & .rows.count).end(xlup).row       .range("b1:d" & irow1)             .autofilter field:=1, criteria1:="=*" & str & "*"            .offset(1, 0).specialcells(xlcelltypevisible).entirerow.delete       end       .autofiltermode = false     end  activeworkbook.save activeworkbook.close 

you can try follow:

dim rowcount, row integer dim myfilenamedir, str string  myfilenamedir = "c:\users\gshaikh\desktop\book16.xlsx"  workbooks.open filename:=myfilenamedir, updatelinks:=0  str = listview1.selecteditem.subitems(1)  'set start row checking row = 1  sheets("students")      'getting total row count     rowcount = .range("b" & .rows.count).end(xlup).row      'loop until row less or equal row count     while row <= rowcount          'if string found in b or c or d, delete row , decrease rowcount         if .range("b" & row) = str or .range("c" & row) = str or .range("d" & row) = str              .rows(row).entirerow.delete              rowcount = rowcount - 1          'else move next row         else              row = row + 1          end if      loop  end