Armstrong Number Verification And Generation

Armstrong Number Verification

iNumber = CInt(InputBox("Please enter the number"))
iTemp = iNumber
iSum = 0
Do While iTemp>0
    iSum = iSum + (iTemp Mod 10)^3
    iTemp = iTemp\10
Loop
If iSum = iNumber Then
    MsgBox "Given Number " & iNumber & " is Armstrong"
Else
    MsgBox "Given Number " & iNumber & " is NOT Armstrong"
End If

Armstrong Numbers Generation

iRange = CInt(InputBox("Please enter the range"))

For i=1 To iRange
    iTemp = i
    iSum = 0
    Do While iTemp>0
        iSum = iSum + (iTemp Mod 10)^3
        iTemp = iTemp\10
    Loop
    If iSum = i Then
        iArmstrongs = iArmstrongs & " " & i
    End If
Next
MsgBox "Armstrong Numbers in the given range " & iRange & " are: " & iArmstrongs