编写一个sub过程，判断输入数据是否是水仙花数。
提示：（例如：153=1的立方+5的立方
+3
的立方）

Private Sub Judge(Number As Integer, Result As Boolean)
Dim a As Integer, b As Integer, c As Integer
a = Number \ 100
b = Number \ 10 Mod 10
c = Number Mod 10
Result = Number = a ^ 3 + b ^ 3 + c ^ 3
End Sub