Private Sub Command1_Click()
For i = 150 To 300
a = i \ 100
b = I mod 100 \ 10
c = i – a*100 – b*10
If i = a * a * a + b * b * b + c * c * c Then
Label1.Caption = Str(i)
End If
Next i
End Sub