Без помпезных вступлений ближе к коду...

SUB TTN (Text$, Number%)

    Number% = 0

    FOR I% = 1 TO LEN (Text$)
        V$ = MID$ (Text$, I%, 1)
        Number% = Number% + ASC (V$) - 48
    NEXT I%

END SUB

----------------------------------------------
Вроде ничего сложного быть не должно...