Question

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

Answer 1

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
    next
End Sub

Answer 2

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