Dim x As String
Dim y As Integer
For index As Integer = 0 To 10000
x = ""
y = 0
Dim x1 As Integer = index
Dim s As String = x1.ToString
Dim a(s.Length) As String
For i As Integer = s.Length - 1 To 0 Step -1
x = s.Substring(i, 1) & x
y = y + (s.Substring(i, 1) * s.Substring(i, 1) * s.Substring(i, 1))
Next
If Val(x) = y Then
Label1.Text = Label1.Text & vbCrLf & x
End If
Application.DoEvents()
Next
