Написать в VBA, используя подпрограмму: Натуральное число, в записи которого n цифр, называется числом Амстронга, если сумма его цифр, возведенных в степень n равна самому числу. Найти все эти числа от 1 до k.

Function IsArmstrong(m As Long) As Boolean     Dim s As Long, n As Integer, i As Integer, m1 As Long     Dim d(1 To 15) As Long     m1 = m: n = 0     Do While m1 > 0         n = n + 1         d(n) = m1 Mod 10         m1 = Int(m1 / 10)     Loop     s = 0     For i = 1 To n         s = s + d(i) ^ n     Next i     IsArmstrong = (s = m) End Function Sub Test()     Dim k As Long, i As Long, j As Integer     Cells.Clear     k = CLng(InputBox("Введите значение k"))     j = 1     For i = 0 To k         If IsArmstrong(i) Then             Cells(j, 1) = i             j = j + 1         End If     Next i End Sub