a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
If i = a * a * a + b * b * b + c * c * c Then
Label1.Caption = Str(i)
End If
Next i