С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр

ввод и вывод оформляйте как вам надо

Sub Zadanie()    n = CInt(InputBox("n ="))    for i = 1 to n        t = i        s = 0        Do While t > 0            s = s + (t mod 10)^3            t = t \ 10        Loop        if i=s then MsgBox i    nextEnd Sub