dim i as integer, sum as long, tmp as stringstrAA="123456789" tmp = left(strAA & string(10, "F"), 10) for i = 1 to len(tmp) step 2 sum = sum + val("&H" & mid(tmp, i, 2) next i
DIM RESULT AS LONG STRAA=LEFT(strAA & STRING(10,"f"),10)WHILE RIGHT(STRAA,2)<>"" RESULT =RESULT+ VAL("&H" & RIGHT(STRAA,2) ) STRAA=LEFT(STRAA,LEN(STRAA)-2) WEND
tmp = left(strAA & string(10, "F"), 10)
for i = 1 to len(tmp) step 2
sum = sum + val("&H" & mid(tmp, i, 2)
next i
STRAA=LEFT(strAA & STRING(10,"f"),10)WHILE RIGHT(STRAA,2)<>""
RESULT =RESULT+ VAL("&H" & RIGHT(STRAA,2) )
STRAA=LEFT(STRAA,LEN(STRAA)-2)
WEND