Error in getting sum of numbers program

[QTpier]

hi all

I am new to scripting and i have written program which give sum of the digits in a number as follows:

Code:

Dim num,sum,getdigit sum=0 getdigit="" num=Inputbox("Enter a four digit number") If Len(num) <> 4 Then Msgbox("Number is not four digit no") else For i=0 to Len(num) getdigit=Mid(num,i+1,1) 'MsgBox(getdigit) sum = sum+cInt(getdigit) next MsgBox("Sum of the digits is " & sum) End if

I am getting Type mismatch error at
sum= sum + cInt(getdigit)
but I am not able to understand why I am getting this error because i am converting string to number.
Can somebody help me with this?

[kotaramamohana]

Hi,
i have updated your for loop code, it is working now

Code:

Dim num,sum,getdigit sum=0 getdigit="" num=Inputbox("Enter a four digit number") If Len(num) <> 4 Then Msgbox("Number is not four digit no") else For i=0 to Len(num)-1 getdigit=Mid(num,i+1,1) 'MsgBox(getdigit) sum = sum+cInt(getdigit) next MsgBox("Sum of the digits is " & sum) End if

[QTpier]

I understood the error... Error was coming only in the last iteration!!
Thanks for the help.