Вывести на печать сумму всех позиций заданного символа в данной строке- Basic(Бейсик)

INPUT"vvedite stroku ",a$
INPUT"vvedite simvol ",b$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)=b$ THEN s=s+i
NEXT
PRINT s