Ребята это надо сделать в Exel дая

Решение на vb.net:         const size as integer = 4         dim a, sum as integer         a = console.readline()         sum = a         dim n(size) as integer         for i = 1 to size             n(i) = a mod 10             a \= 10         next         for i = 1 to size             for j = i + 1 to size                 if n(i) > n(j) then                     dim t as integer                     t = n(i)                     n(i) = n(j)                     n(j) = t                 elseif n(i) = n(j) then                     console.writeline("ошибка")                     exit sub                 end if             next         next         for i = 1 to size             sum += (n(i) + n(size - i + 1)) * 10 ^ (i - 1)         next         console.writeline(sum)         console.readkey()