do while .....
 ......
     If InStr("abc", "b") = 0 Then Exit Do
 ......
loop

Select all