Удаление строки по нескольким условиям - VB

Формулировка задачи:

iText = Array(«желтый», «желтизна»)
For ii = 0 To UBound(iText)
Set iRange = Worksheets(«данные»).Columns(«D»).Find(What:=iText(ii), LookIn:=xlFormulas, Lookat:=xlPart)
If Not iRange Is Nothing Then
Do
iRange.EntireRow.Delete
Set iRange = Worksheets(«данные»).Columns(«D»).Find(What:=iText(ii), LookIn:=xlFormulas, Lookat:=xlPart)
Loop Until iRange Is Nothing
End If
Next ii

только вот никак не могу сделать, чтобы еще по одному условию проверка проходила..если он желтый и равен 0, то удаляем, а если желтый и равен 1 то не удаляем.

Решение задачи: «Удаление строки по нескольким условиям»

textual
                            Листинг программы 
                        

                            iText = Array(«желтый», «желтизна»)
For ii = 0 To UBound(iText)
    Set IRange = Worksheets(«данные»).Columns(«D»).Find(What:=iText(ii), LookIn:=xlFormulas, Lookat:=xlPart)
    If Not IRange Is Nothing Then
            Do
                If IRange.Offset(, 1) = 1 Then IRange.EntireRow.Delete
            Set IRange = Worksheets(«данные»).Columns(«D»).Find(What:=iText(ii), LookIn:=xlFormulas, Lookat:=xlPart)
            Loop Until IRange Is Nothing
        End If
    End If
Next ii

                        