Токен        = ПараметрыФункции["VkTeams_Token"];
    IDПоследнего = 0;

    Для Н = 1 По 5 Цикл // В реальной работе - бесконечный цикл

        Результат = OPI_VKTeams.ПолучитьСобытия(Токен, IDПоследнего, 3);

        События   = Результат["events"];

        // Обработка событий...

        Если Не События.Количество() = 0 Тогда
            IDПоследнего             = События[События.ВГраница()]["eventId"];
        КонецЕсли;

    КонецЦикла;