如何用vb语言编写水仙花数的代码？

这个是打印所有三位数的水仙花数的代码：
Private Sub Command1_Click()
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then
print a * 100 + b * 10 + c
End If
Next
Next
Next
End Sub

for i=1 to 9
for j=0 to 9
for k=0 to 9
if i^3+j^3+k^3=100*i+10*j+k then
msgbox 100*i+10*j+k
end if
next
next
next
不会再追问

判断法　
Dim a() As Integer
　　n = InputBox("请输入一个n位正整数" & Chr(10) & "n大于等于3", "水仙花数", 153)
　　Dim i As Integer
　　m = Len(n)
　　ReDim a(1 To m) As Integer
　　For i = 1 To m
　　a(i) = Val(Mid(n, i, 1))
　　Next i
　　For i = 1 To m
　　s = a(i) ^ m + s
　　Next i
　　If s = Val(n) Then
　　MsgBox "是水仙花数"
　　Else
　　MsgBox "不是水仙花数"
　　End If