Если операторы цикла следует выполнить хотя бы раз, используйте Do...Loop While, чтобы проверять условие в конце цикла. Операторы выполняются, пока условие истинно. В следующем примере для Microsoft Excel цикл повторяется, только если метод Find находит ячейку со строкой ?test?. Если текст найден, ячейка закрашивается синим цветом, и продолжается поиск следующей строки ?test?. Если таких строк больше нет, цикл завершается.

Sub MakeBlue()
     Set rSearch = Worksheets("Sheet1").Range("a1:a10")
     Set с = rSearch.Find(?test?)
     If Not с Is Nothing Then
          first = c.Address
          Do
               c.Font.Colorindex = 5
               Set c = rSearch.FindNext(c)
          Loop While (Not c Is Nothing) And (c.Address <> first)
     Else
          MsgBox "not found"
     End If
End Sub

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997