Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, p As Integer
For n = 100 To 999
p = n
Call arm(n, p)If p = n Then List1.AddItem (n)End IfNext nEnd SubPrivate Function arm(ByVal m As Integer, q As Integer)m = Mid(CStr(m), 1, 1) ^ 3 + Mid(CStr(m), 2, 1) ^ 3 + Mid(CStr(m), 3, 1) ^ 3q = mEnd |