Основы программирования на VBA. Регеда В.В - 33 стр.

      LOOP
или
      DO UNTIL x>=20
           y=sin(x)
           PRINT y
           x=x+2
      LOOP
или
      DO
          y=sin(x)
          PRINT y
          x=x+2
      LOOP UNTIL x>=20
или
      DO
          y=sin(x)
          PRINT y
          x=x+2
      LOOP WHILE x<20
      2.7.4. Для изменения естественного порядка последовательного вы-
полнения операторов в программе служат оператор перехода GOTO, после
которого указывается метка или номер строки. Оператор GOTO вызывает
переход к оператору с указанной меткой или номером строки.
      Программа, реализующая алгоритм рис. 2.3, использующая для ор-
ганизации цикла операторы GOTO и IF THEN, имеет вид:
          x=0
      NACH:
          IF x>20 TNEN END
               y=SIN(x)
               PRINT y
               x=x+2
      GOTO NACH