[Математика] Найти сумму цифр числа

Dim $iIN = 1480, $iSum

$sLen = StringLen(String($iIN))
For $i = 0 To $sLen
	$iSum += Int(StringMid($iIN, $i, 1))
Next
MsgBox(0, "", $iSum)

$iNumber = 1480
$iSumma = 0
$aNumber = StringSplit($iNumber, '')
If IsArray($aNumber) Then
	For $i = 1 To $aNumber[0]
		$iSumma += $aNumber[$i]
	Next
EndIf
MsgBox(0, '', $iSumma)

Execute("0" & StringRegExpReplace("1480", "", "+") & "0")