hello

Is what somebody can translate this code into vba

thank you

declare partial_results as structure of
    min = array of numbers[ 4 ]; //min[0] is match in six numbers,
min[1] is match in five numbers, etc
    max = array of numbers[ 4 ];
    comboCount as number;
end declare

function main
    declare final_results as list;

    for each c=1,2,3,4,5,6 to 44,45,46,47,48,49 do
        results = new partial_results;
        for each d=(tickets being tested) do
             match = how_many_numbers_match( c, d );
             increment( results, match );
        end for
        similar = find_similar_results( final_results, results );
        if similar is NULL then
            add results to final_results;
        else
            add( results, similar );
        end if
    end for

    //now the final_results list contains all data for the coverage report
    //the following applies to each item in this list:
    //"comboCount tested combinations produce min[0] to max[0] of
jackpot hits,
    //and min[1] to max[1] of 'match 5' hits and min[2] to max[2] of
'match 4' hits
    //and min[3] to max[3] of 'match 3' hits
end function

function increment( res as partial_results, match as number )
    index_to_increment = 4 - (match-2); //reverse the match index to
have highest match at index '0'
    min[ index_to_increment ] = min[ index_to_increment ] + 1;
    max[ index_to_increment ] = max[ index_to_increment ] + 1;
    comboCount = comboCount+1;
end function

function add( res1 as partial_results, res2 as partial_results )
    res2.comboCount = res2.comboCount + res1.comboCount;
    for i=0 to 3 do
        if res1.min[ i ] < res2.min[ i ] then
            res2.min[ i ] = res1.min[ i ];
        end if
        if res1.max[ i ] > res2.max[ i ] then
            res2.max[ i ] = res1.max[ i ];
        end if
    end for
end function

function find_similar_results( list, results )
    for each r=partial_results from the list do
        for i=0 to 3 do
            if results.max[ i ] > 0 then
                if results.max[i] = r.max[ i ] then
                    return r;
                else
                    break;
                end if
            else if r.max[ i ] > 0 then
                break;
            end if
        end for
    end for
    return NULL;
end function