Перевод из C++ в VBa

//Оплата парковки
 
//Имя входного файла: стандартный ввод
//Имя выходного файла: стандартный вывод
//Ограничение по времени: 2 секунды
//Ограничение по памяти: 256 мегабайт
 
//На каникулах Роман решил отдохнуть во Флатландии и арендовал себе апартаменты
//и роскошный автомобиль. Разумеется, такой автомобиль нельзя оставлять во дворе,
 //поэтому Роман хочет также арендовать место на ближайшей охраняемой парковке.
//Поскольку он уже поиздержался с жильём и машиной, он хочет потратить на парковку
//как можно меньше бурлей.
//На парковке доступны три тарифа аренды:
 
//1. Заплатив a бурлей, можно использовать парковку в течение 1 дня.
 
//2. Заплатив b бурлей, можно использовать парковку в течение одной недели, то есть
//7 дней.
 
//3. Заплатив c бурлей, можно использовать парковку в течение четырёх недель, то есть
//28 дней.
 
//Роман планирует отдыхать во Флатландии n дней. Любой тариф можно использовать
//произвольное количество раз, также можно арендовать парковку на суммарно больший
//срок, чем нужно.
//Какое минимальное количество бурлей придётся заплатить Роману, чтобы иметь возможность
//использовать стоянку все n дней?
 
//Формат входных данных
//Первая строка входных данных содержит три целых числа a, b, c (1 <= a <= b <= c <= 1000)
//— цена в бурлях за однократную покупку первого, второго и третьего тарифа аренды
//соответственно.
 
//Вторая строка содержит целое число n (1 <= n <= 10^15) — количество дней, в течение которых
//Роман планирует отдыхать во Флатландии и оставлять машину на охраняемой парковке.
 
//Формат выходных данных
 
//Выведите единственное целое число — минимальное количество бурлей, которое Роману
//придётся потратить на аренду парковочного места.
 
//Примеры
 
//стандартный ввод   стандартный вывод
//4 7 20            14
//10
 
//2 9 38            47
//36
 
//Замечание
 
//В первом примере Роману выгодно взять 2 абонемента на неделю, это будет стоить
//2 * 7 = 14 бурлей и позволит оплатить парковку на 14 дней.
 
//Во втором примере выгодно купить 5 абонементов на неделю и 1 на день.
//Количество оплаченных дней будет ровно 36, а цена составит
//1 * 2 + 5 * 9 + 0 * 38 = 47 бурлей.
///////////////////////////////////////////////////////////////////////////////
#include <algorithm>
#include <array>
#include <cmath>
#include <iostream>
#include <limits>
///////////////////////////////////////////////////////////////////////////////
typedef long long               T_int;
///////////////////////////////////////////////////////////////////////////////
const   T_int                   TARIFFS_TOTAL   {3};
///////////////////////////////////////////////////////////////////////////////
typedef std::array  < T_int,    TARIFFS_TOTAL   >   T_int_val_of_tariff;
///////////////////////////////////////////////////////////////////////////////
const   T_int_val_of_tariff     DAYS_OF_TARIFF  { 1, 7, 28 };
///////////////////////////////////////////////////////////////////////////////
T_int     periods_of_tariff
    (
        T_int     n,
        T_int     tariff_ind
    )
{
    return          n
                /   DAYS_OF_TARIFF          [ tariff_ind ]
 
            +   (
                            n
                        %   DAYS_OF_TARIFF  [ tariff_ind ]
 
                    !=  0
                );
}
///////////////////////////////////////////////////////////////////////////////
T_int     price_total_min
    (
        T_int_val_of_tariff     const   &   price_of_tariff,
        T_int                               n
    )
{
    T_int_val_of_tariff     price_min_of_tariff{{}};
 
    for( T_int  i{}; i < TARIFFS_TOTAL; ++i )
    {
        auto    &   elem_cur    =   price_min_of_tariff[i];
        elem_cur                =   std::numeric_limits<T_int>::max();
 
        for( T_int  j{}; j <= i; ++j )
        {
            elem_cur    =   std::min    (
                                            elem_cur,
 
                                                price_of_tariff     [j]
                                            *   DAYS_OF_TARIFF      [i]
                                            /   DAYS_OF_TARIFF      [j]
                                        );
        }//for
    }//for
 
    T_int_val_of_tariff     results{{}};
 
    results[2]  =       price_min_of_tariff     [2]
                    *   periods_of_tariff       ( n, 2 );
 
    for( T_int  i = 1; i >= 0; --i )
    {
        results[i]      =   results[i + 1];
 
        auto    n_i     =       n
                            %   DAYS_OF_TARIFF[i + 1];
 
        if( n_i )
        {
            results[i]  =       results                     [i]
                            -   price_min_of_tariff         [i + 1]
 
                            +       price_min_of_tariff     [i]
 
                                *   periods_of_tariff
                                        (
                                            n_i,
                                            i
                                        );
        }//if
    }//for
 
    return  *std::min_element
                (
                    std::begin  ( results ),
                    std::end    ( results )
                );
}
///////////////////////////////////////////////////////////////////////////////
int     main()
{
    T_int_val_of_tariff     price_of_tariff{{}};
 
    for( auto   &   price   :   price_of_tariff )
    {
        std::cin    >>  price;
    }
 
    T_int     n{};
    std::cin   >>  n;
 
    std::cout   <<  price_total_min
                        (
                            price_of_tariff,
                            n
                        )
 
                <<  std::endl;
}